summaryrefslogtreecommitdiff
path: root/testautomation/graphics
diff options
context:
space:
mode:
authorWolfram Garten [wg] <Wolfram.Garten@oracle.com>2010-10-27 14:53:13 +0200
committerWolfram Garten [wg] <Wolfram.Garten@oracle.com>2010-10-27 14:53:13 +0200
commiteec3a789353e9b80171921aea000ab0725b468f0 (patch)
tree1e5191398586fef2c854cc69b05e2065eafd45e9 /testautomation/graphics
parentaabe08cde08cd0cc066feedc20a7fb8be8bb3620 (diff)
i115273,[Automation]: shift old documentation to new style using printlogs
Diffstat (limited to 'testautomation/graphics')
-rw-r--r--testautomation/graphics/required/includes/global/gallery.inc494
-rw-r--r--testautomation/graphics/required/includes/global/gallery2.inc104
-rw-r--r--testautomation/graphics/required/includes/global/id_001.inc8
-rw-r--r--testautomation/graphics/required/includes/global/id_004.inc32
-rw-r--r--testautomation/graphics/required/includes/global/id_005.inc2
-rw-r--r--testautomation/graphics/required/includes/global/id_006.inc440
-rw-r--r--testautomation/graphics/required/includes/global/id_007.inc489
-rw-r--r--testautomation/graphics/required/includes/global/id_008.inc53
-rw-r--r--testautomation/graphics/required/includes/global/id_009.inc394
-rw-r--r--testautomation/graphics/required/includes/global/id_011.inc1852
-rw-r--r--testautomation/graphics/required/includes/global/id_opt_1.inc1423
-rw-r--r--testautomation/graphics/required/includes/global/id_opt_2.inc15
-rw-r--r--testautomation/graphics/required/includes/impress/im_003_.inc12
-rw-r--r--testautomation/graphics/required/includes/impress/im_005_.inc4
-rw-r--r--testautomation/graphics/required/includes/impress/im_007_.inc24
-rw-r--r--testautomation/graphics/required/includes/impress/im_011_.inc2
16 files changed, 2618 insertions, 2730 deletions
diff --git a/testautomation/graphics/required/includes/global/gallery.inc b/testautomation/graphics/required/includes/global/gallery.inc
index cfdac0029..a54877792 100644
--- a/testautomation/graphics/required/includes/global/gallery.inc
+++ b/testautomation/graphics/required/includes/global/gallery.inc
@@ -31,31 +31,26 @@
'*
'\******************************************************************************
testcase tGallery_DialogTest
- '///Open a new Writer document
- '///Tools / Gallery
- printlog "- Working with Gallery-Beamer!"
+ printlog "Open a new Writer document"
gApplication = "WRITER"
call hNewDocument
+ printlog "Tools / Gallery"
call hOpenGallery
Kontext "DocumentWriter"
- '///+Undock the <i>Gallery Beamer</i>
- printlog "- undock the Gallery Beamer"
- Kontext "Gallery"
- Gallery.Undock ( AlignTop )
- sleep(2)
- '///+<ul><li>Move the gallery-window</li></ul>
- printlog " - move the gallery window"
- Gallery.move ( 20, 20 )
- sleep(2)
- '///+Dock the <i>Gallery Beamer</i>
- printlog "- dock the Gallery Beamer"
- Gallery.Dock ( AlignTop )
- sleep(2)
- '///+Close the <i>Gallery Beamer</i> (Tools / Gallery)
- printlog "- close the Gallery Beamer"
- ToolsGallery
+ printlog "Undock the Gallery Beamer"
+ Kontext "Gallery"
+ Gallery.Undock ( AlignTop )
+ sleep(2)
+ printlog "Move the gallery-window"
+ Gallery.move ( 20, 20 )
+ sleep(2)
+ printlog "- dock the Gallery Beamer"
+ Gallery.Dock ( AlignTop )
+ sleep(2)
+ printlog "- close the Gallery Beamer"
+ ToolsGallery
call hCloseDocument
-endcase
+endcase 'tGallery_DialogTest
'-------------------------------------------------------------------------
@@ -64,51 +59,50 @@ testcase tGallery_ActivateAndUpdateAllThemes
Dim i as Integer
Dim j as Integer
Dim Gallerytext as string
- '///Activate and update all gallery themes (NET installation: Activate only!)
- '///Open a new Writer document
- '///+Tools / Gallery
- '///+Click on each theme and update it (via context menu)
+ printlog "Open a new Writer document"
+ printlog "Tools / Gallery"
+ printlog "Click on each theme and update it (via context menu)"
printlog "activate and update all gallery-themes"
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
Kontext "Gallery"
- iThemeCount = Gallerys.GetItemCount
- for i=1 to iThemeCount
- if gNetzInst = FALSE then
- Kontext "Gallery"
- Gallerytext = Gallerys.GetItemText(i)
- printlog "- " + i + ". entry (" & Gallerytext & ")"
- Gallerys.Select i
- Gallerys.MouseMove ( 10, 10 )
- Gallerys.OpenContextMenu
- sleep (3)
- printlog " - update"
- hMenuSelectNr (1)
- sleep (3)
- Kontext "Messagebox"
- if Messagebox.Exists(3) then
- if Messagebox.getRT=304 then
- printlog "- 'MyTheme' is the " & i & "'s entry."
- Messagebox.No
- end if
+ iThemeCount = Gallerys.GetItemCount
+ for i=1 to iThemeCount
+ if gNetzInst = FALSE then
+ Kontext "Gallery"
+ Gallerytext = Gallerys.GetItemText(i)
+ printlog "- " + i + ". entry (" & Gallerytext & ")"
+ Gallerys.Select i
+ Gallerys.MouseMove ( 10, 10 )
+ Gallerys.OpenContextMenu
+ sleep (3)
+ printlog "update the theme"
+ hMenuSelectNr (1)
+ sleep (3)
+ Kontext "Messagebox"
+ if Messagebox.Exists(3) then
+ if Messagebox.getRT=304 then
+ printlog "- 'MyTheme' is the " & i & "'s entry."
+ Messagebox.No
+ end if
+ else
+ for j = 1 to 800
+ Kontext "AktualisierenGallery"
+ if AktualisierenGallery.Exists then
+ printlog "DEBUG (j): " & j
+ sleep (1)
else
- for j = 1 to 800
- Kontext "AktualisierenGallery"
- if AktualisierenGallery.Exists then
- printlog "DEBUG (j): " & j
- sleep (1)
- else
- printlog "DEBUG: 800 reached!"
- j=801
- end if
- next j
+ printlog "DEBUG: 800 reached!"
+ j=801
end if
+ next j
end if
- next i
+ end if
+ next i
call hCloseDocument
-endcase
+endcase 'tGallery_ActivateAndUpdateAllThemes
'-------------------------------------------------------------------------
@@ -127,38 +121,36 @@ testcase tGallery_CheckNames
sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_" + iSprache + ".txt" )
end if
- '///Check the names for the gallery themes
- '///Open a new Writer document
- '///+Tools / Gallery
+ printlog "Open a new Writer document"
+ printlog "+Tools / Gallery"
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
- '///+Check the number of gallery themes. For StarOffice: should be 32. For OpenOffice.Org: should be 6.
+ printlog "+Check the number of gallery themes. For StarOffice: should be 32. For OpenOffice.Org: should be 6."
printlog "- check the number of gallery-themes"
Kontext "Gallery"
- if NOT gOOO then
- if bAsianLan then
- iGalleryThemes = 29 ' Flags are not allowed!
- else
- iGalleryThemes = 30
- end if
+ if NOT gOOO then
+ if bAsianLan then
+ iGalleryThemes = 29 ' Flags are not allowed!
else
- if bAsianLan then
- iGalleryThemes = 6 ' Flags are not allowed!
- else
- iGalleryThemes = 6
- end if
+ iGalleryThemes = 30
end if
- iThemeCount = Gallerys.GetItemCount
- if (iThemeCount <> iGalleryThemes) then
- warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'"
+ else
+ if bAsianLan then
+ iGalleryThemes = 6 ' Flags are not allowed!
+ else
+ iGalleryThemes = 6
end if
- for i=1 to iThemeCount
+ end if
+ iThemeCount = Gallerys.GetItemCount
+ if (iThemeCount <> iGalleryThemes) then
+ warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'"
+ end if
+ for i=1 to iThemeCount
Gallerys.Select i
ListAppend ( siList(), Gallerys.GetSelText )
next i
- '///+Check all names with a list which depends on language (<i>gTestToolPath</i>/graphics/udpate/input/gallery)
printlog "- check the names of gallery-themes"
if Dir ( sFilename ) = "" then
warnlog "The file for comparison does not exists. The file will be written!"
@@ -171,7 +163,7 @@ testcase tGallery_CheckNames
end if
ToolsGallery
call hCloseDocument
-endcase
+endcase 'tGallery_CheckNames
'-------------------------------------------------------------------------
@@ -180,15 +172,14 @@ testcase tGallery_CheckContextMenuForGalleryThemes
Dim iMenuEntries as Integer
Dim i as Integer
Dim iThemeCount as Integer
- '/// Check the contextmenu for the gallery themes
- '/// Open a new Writer document
- '/// +Tools / Gallery
+ printlog " Open a new Writer document"
+ printlog " +Tools / Gallery"
printlog "check the contextmenu for the gallery-themes"
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
- '/// +Testing <i>rename</i> and <i>properties</i> for each gallery theme (via context-menu)
- '/// +<ul><li>Only the private gallery theme must be deleteable (different 3 entries in the context-menu than the rest)</li></ul>
+ printlog " Testing rename and properties for each gallery theme (via context-menu)"
+ printlog " Only the private gallery theme must be deleteable (different 3 entries in the context-menu than the rest)"
Kontext "Gallery"
iThemeCount = Gallerys.GetItemCount
Gallerys.MouseMove ( 10, 10 )
@@ -242,55 +233,50 @@ testcase tGallery_CheckContextMenuForGalleryThemes
next i
ToolsGallery
call hCloseDocument
-endcase
+endcase 'tGallery_CheckContextMenuForGalleryThemes
'-------------------------------------------------------------------------
testcase tGallery_CreateAndWorkWithANewGalleryThemes
Dim iMenuEntries as Integer
Dim j as Integer
- '/// Open a new Writer document
- '/// Tools / Gallery
+ printlog "Open a new Writer document"
+ printlog "Tools / Gallery"
printlog "create a new gallery-theme ( TT-theme )"
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
iMenuEntries = Gallerys.GetItemCount
printlog "- Clicking on 'New Theme' and creating a new theme"
- '/// Create a new gallery-theme
- '/// + by clicking on <i>New Theme</i>
NewTheme.Click
- '/// +Activate <i>General</i> tabpage and insert <b><i>TT-theme</b></i> as name
+ printlog "Activate General tabpage and insert TT-theme as name"
Kontext
Active.SetPage TabAllgemeinGallery
Kontext "TabAllgemeinGallery"
NeuesThema.SetText "TT-theme"
sleep (1)
- printlog " - named the new theme 'TT-theme' on the general-page"
- printlog " - insert all files out of '[gTestToolpath]\global\input\graf_inp' in the files-page"
- '/// +Activate <i>Files</i> tabpage
+ printlog "named the new theme 'TT-theme' on the general-page"
+ printlog "insert all files out of '[gTestToolpath]\global\input\graf_inp' in the files-page"
+ printlog "Activate Files tabpage"
Kontext
Active.SetPage TabDateien
Kontext "TabDateien"
printlog " - click 'add' without a selected file => insert-graphic-dialog has to be be visible"
- '/// +Click on <i>Add</i> (If no file is selected the <i>Graphic-Insert</i> dialog has to be be opened -> close it)
Hinzufuegen.Click
sleep (1)
Kontext "GrafikEinfuegenDlg"
GrafikEinfuegenDlg.Cancel
sleep (1)
printlog " - click 'find files' to insert the path for graphics"
- '///+Click on <i>Find Files</i> => <i>select-path</i> dialog will be visible
Kontext "TabDateien"
Suche.Click
sleep (1)
- '/// +Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on <i>Select</i>
+ printlog "Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on Select"
Kontext "OeffnenDlg"
Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) )
sleep (1)
Auswaehlen.Click
sleep (10)
- '/// +Click on <i>Add</i> for some graphics
printlog " - 'add' one by one"
Kontext "TabDateien"
DateiListe.Select 1
@@ -300,10 +286,8 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
DateiListe.Select 1
Hinzufuegen.Click
sleep (1)
- '/// +Click on <i>Add all</i> for rest of the graphics
- '/// +<ul><li>apply-dialog -> cancel</li></ul>
- '/// +click on <i>Add all</i> for rest of the graphics
- printlog " - 'add all' for the rest of the files"
+ printlog " Click on Add all for rest of the graphics"
+ printlog " click on Add all for rest of the graphics"
DateiListe.Select 1
HinzufuegenAlle.Click
printlog " - apply-dialog -> cancel"
@@ -335,24 +319,23 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
next j
end if
Kontext "TabDateien"
- printlog " - click 'OK' for the tabpages"
+ printlog "click 'OK' for the tabpages"
TabDateien.OK
- '/// +Check if the new entry is inserted and select it
- printlog " - check if the new entrie is inserted and select it"
+ printlog "Check if the new entry is inserted and select it"
Kontext "Gallery"
if Gallerys.GetItemCount <> ( iMenuEntries + 1 ) then
warnlog "No new theme was created => the test ends here"
ToolsGallery
call hCloseDocument
else
- gMouseClick 50,50 '/// make mouseclick to set focus ///'
+ gMouseClick 50,50
+ printlog " make mouseclick to set focus"
Kontext "Gallery"
Gallerys.Select "TT-theme"
Gallerys.MouseMove ( 10, 10 )
sleep (1)
Gallerys.OpenContextMenu
- '/// +Update the entry (1. entry in context menu ) => cancel it
- printlog " - update the entry => cancel the update"
+ printlog "Update the entry (1. entry in context menu ) => cancel it"
sleep (3)
hMenuSelectNr (1)
sleep (1)
@@ -366,8 +349,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
Kontext "Gallery"
Gallerys.Select "TT-theme"
Gallerys.OpenContextMenu
- '/// +Update it (1. entry in context menu )
- printlog " - update"
+ printlog " +Update it (1. entry in context menu )"
sleep (3)
hMenuSelectNr (1)
for j=1 to 100
@@ -378,8 +360,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
sleep (1)
end if
next j
- '/// +Rename it (3. entry in context menu)
- printlog " - rename ( 3. entry in context-menu )"
+ printlog "Rename it (3. entry in context menu)"
Kontext "Gallery"
Gallerys.OpenContextMenu
sleep (3)
@@ -389,8 +370,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
GalleryNewTitle.OK
Kontext "Gallery"
Gallerys.Select "New TT-theme"
- '///+Add new files in properties (4. entry in context menu)
- printlog " - add new graphics in properties ( 4. entry in context-menu )"
+ printlog "add new graphics in properties ( 4. entry in context-menu )"
Kontext "Gallery"
Gallerys.OpenContextMenu
sleep (3)
@@ -407,9 +387,8 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
DateiListe.Select 1
Hinzufuegen.Click
TabDateien.OK
- '/// +Delete the entry (2. entry in context menu)
- printlog " - delete the entry ( 2. entry in context-menu )"
- printlog " - messagebox -> no"
+ printlog "delete the entry ( 2. entry in context-menu )"
+ printlog "messagebox -> no"
Kontext "Gallery"
Gallerys.Select "New TT-theme"
sleep (3)
@@ -419,7 +398,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
Kontext "Active"
sleep (1)
Active.No
- printlog " - messagebox -> yes"
+ printlog "messagebox -> yes"
Kontext "Gallery"
sleep (1)
Gallerys.Select "New TT-theme"
@@ -429,7 +408,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
hMenuSelectNr (2)
Kontext "Active"
Active.Yes
- try
+ try
Kontext "Gallery"
Gallerys.Select "New TT-theme"
warnlog "The entry isn't deleted!"
@@ -439,7 +418,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
sleep 10
ToolsGallery
call hCloseDocument
-endcase
+endcase 'tGallery_CreateAndWorkWithANewGalleryThemes
'-------------------------------------------------------------------------
@@ -463,14 +442,14 @@ testcase tGallery_GalleryView_Preview
case 48 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17
case 49 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16
case 55 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 28
- case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10 'FHA TODO: Find out the right numbers for Asian languages.
+ case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10
case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
case else : jpeg_bkg = 10 : iAnimation = 1 : iSound = 17
- warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
+ warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
end select
- else ' Testing OOO
+ else
select case iSprache
case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
@@ -491,14 +470,12 @@ testcase tGallery_GalleryView_Preview
warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
end select
end if
- '/// Open a new Writer document
- '/// Tools / Gallery
printlog "open a writer and the gallery"
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
- '/// Check the view for Background-pictures (JPEGs), for standard graphic files (Animation) and for <i>Sound</i> objects
+ printlog "Check the view for Background-pictures (JPEGs), for standard graphic files (Animation) and for Sound objects"
for i=1 to 3
if i=1 then
Gallerys.Select jpeg_bkg
@@ -517,22 +494,17 @@ testcase tGallery_GalleryView_Preview
else
iPreview = 2 : iTitle = 0
end if
- '/// Test the list-view
- '/// +Click on List-View-Button in toolbar
- printlog "- list-view"
- printlog " - open the list-view"
+ printlog " Click on List-View-Button in toolbar
ListView.Click
sleep (1)
- printlog " - Press Home + Enter to focus and enter Preview-mode."
- '/// +Double-click on an object (preview has to be visible)
+ printlog "Press Home + Enter to focus and enter Preview-mode."
View.TypeKeys "<HOME>"
View.TypeKeys "<RETURN>"
sleep (2)
- '/// +Back to normal view with Enter
+ printlog "Back to normal view with Enter"
View.TypeKeys "<RETURN>"
sleep (2)
- '/// +Preview out of context menu on/off
- printlog " - preview out of context menu on/off"
+ printlog "preview out of context menu on/off"
View.TypeKeys "<HOME>"
Sleep (2)
View.OpenContextMenu true
@@ -540,96 +512,91 @@ testcase tGallery_GalleryView_Preview
hMenuSelectNr ( iPreview )
sleep (3)
kontext "Gallery"
- Sleep (2)
- View.OpenContextMenu true
+ Sleep (2)
+ View.OpenContextMenu true
+ sleep (2)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ printlog " +Title (FAT installation only)
+ if gNetzInst = FALSE then
+ printlog " - title"
+ Kontext "Gallery"
sleep (2)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// +Title (FAT installation only)
- if gNetzInst = FALSE then
- printlog " - title"
- Kontext "Gallery"
- sleep (2)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iTitle )
- Kontext "GalleryNewTitle"
- sleep (1)
- GalleryNewTitle.Cancel
- sleep (1)
- Kontext "Gallery"
- end if
View.OpenContextMenu true
sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// Should now be in Preview-mode. Check if we are. ///'
- View.OpenContextMenu true
- sleep (3)
- printlog MenuIsItemChecked (MenuGetItemID(iPreview+1))
- if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then
- Printlog " Entered Preview-mode correctly"
- sleep (1)
- else
- Warnlog " Didnt seem to enter preview-mode correctly."
- end if
- MenuSelect (0)
+ hMenuSelectNr ( iTitle )
+ Kontext "GalleryNewTitle"
sleep (1)
- '/// From here, try switching to icon-view ///'
- '///+Click on Icon-View-Button in toolbar
- printlog "- icon-view"
- if IconView.isEnabled then
- IconView.Click
- qaErrorLog "The bug 64543 has been fixed! Please report to FHA."
- end if
+ GalleryNewTitle.Cancel
sleep (1)
- View.TypeKeys "<HOME>"
- printlog " - Enter to get out of Preview-mode"
- '/// +Press Return on an object (preview has to be visible)
- View.TypeKeys "<RETURN>"
- sleep (2)
- '/// +Back to normal view with Return
- View.TypeKeys "<RETURN>"
- sleep (2)
- '/// +Preview out of context menu on/off
- printlog " - preview out of context menu on/off"
- View.TypeKeys "<HOME>"
- sleep (3)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// +Title (FAT installation only)
- if gNetzInst = FALSE then
- printlog " - title"
- try
- View.OpenContextMenu true
- sleep (3)
- catch
- warnlog "Could not open Contextmenu for Title nr:" +iTitle
- endcatch
- hMenuSelectNr ( iTitle )
- Kontext "GalleryNewTitle"
- GalleryNewTitle.Cancel
- Kontext "Gallery"
- end if
- next i
- sleep 1 ' else crash
- ToolsGallery
-
- '/// If the MediaPlayer exists - close it ///'
+ Kontext "Gallery"
+ end if
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ printlog " Should now be in Preview-mode. Check if we are."
+ View.OpenContextMenu true
+ sleep (3)
+ printlog MenuIsItemChecked (MenuGetItemID(iPreview+1))
+ if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then
+ printlog " Entered Preview-mode correctly"
+ sleep (1)
+ else
+ Warnlog " Didnt seem to enter preview-mode correctly."
+ end if
+ MenuSelect (0)
+ sleep (1)
+ printlog "Click on Icon-View-Button in toolbar"
+ if IconView.isEnabled then
+ IconView.Click
+ qaErrorLog "The bug 64543 has been fixed! Please report to FHA."
+ end if
+ sleep (1)
+ View.TypeKeys "<HOME>"
+ printlog "Enter to get out of Preview-mode"
+ View.TypeKeys "<RETURN>"
+ sleep (2)
+ printlog "Back to normal view with Return"
+ View.TypeKeys "<RETURN>"
+ sleep (2)
+ printlog "preview out of context menu on/off"
+ View.TypeKeys "<HOME>"
+ sleep (3)
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ printlog "Title (FAT installation only)"
+ if gNetzInst = FALSE then
+ printlog "title"
+ try
+ View.OpenContextMenu true
+ sleep (3)
+ catch
+ warnlog "Could not open Contextmenu for Title nr:" +iTitle
+ endcatch
+ hMenuSelectNr ( iTitle )
+ Kontext "GalleryNewTitle"
+ GalleryNewTitle.Cancel
+ Kontext "Gallery"
+ end if
+ next i
+ sleep 1 ' else crash
+ ToolsGallery
+ printlog " If the MediaPlayer exists - close it"
kontext "Mplayer"
- if Mplayer.Exists then
- if (gApplication = "IMPRESS") then
- kontext "DocumentImpress"
- else
- kontext "DocumentDraw"
- end if
- ToolsMediaPlayer
+ if Mplayer.Exists then
+ if (gApplication = "IMPRESS") then
+ kontext "DocumentImpress"
+ else
+ kontext "DocumentDraw"
+ end if
+ ToolsMediaPlayer
else
if (gApplication = "IMPRESS") then
kontext "DocumentImpress"
@@ -639,7 +606,7 @@ testcase tGallery_GalleryView_Preview
end if
call hCloseDocument
-endcase
+endcase 'tGallery_GalleryView_Preview
'-------------------------------------------------------------------------
@@ -649,7 +616,7 @@ testcase tGallery_GalleryView_Insert
Dim i as Integer
Dim j as Integer
Dim k as Integer
- '/// Test gallery-view -> insert gallery-object with context-menu (3D-Object (<i>internal object</i>), Animation (<i>as file</i>))
+ printlog " Test gallery-view -> insert gallery-object with context-menu (3D-Object internal object), Animation (as file))"
if NOT gOOO then
select case iSprache
case 01 : jpeg_bkg = 3 : iAnimation = 1
@@ -691,36 +658,34 @@ testcase tGallery_GalleryView_Insert
warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
end select
end if
- '/// Test following for all applications (Writer, Calc, Impress, Draw)
- for i=1 to 4 ' each application
+ printlog "Test following for all applications (Writer, Calc, Impress, Draw)"
+ for i=1 to 4
if i=1 then gApplication = "WRITER"
if i=2 then gApplication = "CALC"
if i=3 then gApplication = "IMPRESS"
if i=4 then gApplication = "DRAW"
- '/// +Open a new document
- '/// +Open the Gallery
+ printlog "Open a new document"
+ printlog "Open the Gallery"
printlog gApplication 'Chr(13)
call hNewDocument
call hOpenGallery
- '/// +Select 3D-theme (these are internal objects and not realy files)
- '/// +<ul><li>on context menu there are only 2 entries for insert (copy, link)
- '/// +<li>insert the object per <i>copy</i></li>
- '/// +<li>insert the object per <i>link</i></li></ul>
- '/// +Select Animation theme (these are realy files)
- '/// +<ul><li>On context menu there are only 2 entries for insert (copy, link ) for Calc, Draw Impress</li>
- '/// +<li>On context menu there are only 3 entries for insert (copy, link, background / page, paragraph ) for Writer</li>
- '/// +<li>insert the object per <i>copy</i></li>
- '/// +<li>insert the object per <i>link</i></li>
- '/// +<li>Only for the Writer:<ul>
- '/// +<li>Insert the object per background / page</li>
- '/// +<li>insert the object per background / paragraph</li></ul></li></ul>
- '/// +Close the Gallery
- '/// +Close the document
- '/// Since the GraphicObjectbar could disturb our testing, we close it if it is open ///'
- ' kontext "GraphicObjectbar"
- ' if GraphicObjectbar.Exists then GraphicObjectbar.Close
- for j=1 to 2 ' the two gallery-theme
+ printlog "Select 3D-theme (these are internal objects and not realy files)"
+ printlog "on context menu there are only 2 entries for insert (copy, link)"
+ printlog "insert the object per copy"
+ printlog "Select Animation theme (these are realy files)"
+ printlog "On context menu there are only 2 entries for insert (copy, link ) for Calc, Draw Impress"
+ printlog "On context menu there are only 3 entries for insert (copy, link, background / page, paragraph ) for Writer"
+ printlog "insert the object per copy"
+ printlog "insert the object per link"
+ printlog "Only for the Writer:"
+ printlog "Insert the object per background / page"
+ printlog "insert the object per background / paragraph"
+ printlog "Close the Gallery"
+ printlog "Close the document"
+ printlog "Since the GraphicObjectbar could disturb our testing, we close it if it is open"
+
+ for j=1 to 2
if j=1 then
Gallerys.Select jpeg_bkg
printlog " selected gallery-theme : Backgrounds"
@@ -747,7 +712,7 @@ testcase tGallery_GalleryView_Insert
View.typekeys "<DOWN>,<UP>"
sleep (3)
- View.TypeKeys "<SHIFT F10>" ' OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
sleep (3)
hMenuSelectNr ( 1 )
@@ -763,14 +728,14 @@ testcase tGallery_GalleryView_Insert
sleep (3)
printlog " - link"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
sleep (1)
hMenuSelectNr ( 1 )
hMenuSelectNr ( 2 )
sleep (3)
printlog " - background -> page"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
sleep (2)
hMenuSelectNr ( 1 )
hMenuSelectNr ( 3 )
@@ -778,7 +743,7 @@ testcase tGallery_GalleryView_Insert
sleep (3)
printlog " - background -> paragraph"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
sleep (2)
hMenuSelectNr ( 1 )
hMenuSelectNr ( 3 )
@@ -795,7 +760,7 @@ testcase tGallery_GalleryView_Insert
kontext "Gallery"
next k
- else ' test for other applications ( calc, impress, draw )
+ else
kontext "GraphicObjectbar"
if GraphicObjectbar.Exists then
if GraphicObjectbar.isDocked = False then
@@ -823,10 +788,10 @@ testcase tGallery_GalleryView_Insert
for k=1 to 2
if k=1 then
ListView.Click
- printlog " - insert on list view"
+ printlog "insert on list view"
else
IconView.Click
- printlog " - insert on icon view"
+ printlog "insert on icon view"
end if
sleep (1)
@@ -835,7 +800,7 @@ testcase tGallery_GalleryView_Insert
View.typekeys "<DOWN>,<UP>"
sleep (1)
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
printlog " - copy"
sleep (3)
hMenuSelectNr ( 1 )
@@ -843,7 +808,7 @@ testcase tGallery_GalleryView_Insert
sleep (3)
if j=2 then
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ View.TypeKeys "<SHIFT F10>"
printlog " - link"
sleep (3)
hMenuSelectNr ( 1 )
@@ -859,7 +824,7 @@ testcase tGallery_GalleryView_Insert
call hCloseDocument
WaitSlot (2000)
next i
-endcase
+endcase 'tGallery_GalleryView_Insert
'-------------------------------------------------------------------------
@@ -878,7 +843,7 @@ testcase tGallery_GalleryView_Delete
Goto NotForNetInst
end if
- '/// Test gallery view -> delete objects with context-menu ( Backgrounds (<i>internal object</i>), Animation (<i>file</i>), Sound (<i>file</i>))
+ printlog " Test gallery view -> delete objects with context-menu ( Backgrounds (internal object), Animation (file), Sound (file))"
select case iSprache
case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6
@@ -898,12 +863,12 @@ testcase tGallery_GalleryView_Delete
warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )"
end select
- '/// Open a new writer-doc
- '/// Tools / Gallery
+ printlog " Open a new writer-doc"
+ printlog " Tools / Gallery"
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
- '/// Delete one object in list-view and icon-view for 3D, Animation and Sound
+ printlog "Delete one object in list-view and icon-view for 3D, Animation and Sound"
for i=1 to 3
Kontext "Gallery"
if i=1 then
@@ -937,39 +902,37 @@ testcase tGallery_GalleryView_Delete
Kontext "Gallery"
sleep (1)
View.MouseMove ( 5, 15 )
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu true
+ View.TypeKeys "<SHIFT F10>"
hMenuSelectNr ( 4 )
kontext "Active"
if k=1 then
Active.No
- printlog " delete one object => no"
+ printlog "delete one object => no"
else
Active.Yes
- printlog " delete one object => yes"
+ printlog "delete one object => yes"
end if
next k
next j
next i
ToolsGallery
call hCloseDocument
- 'NOTE: Jump End NotForNetInst
- NotForNetInst:
-endcase
+endcase 'tGallery_GalleryView_Delete
'-------------------------------------------------------------------------
testcase tGallery_Quick_check
- '/// Short check, if at least 2 files exist in the gallery, and if they are > 0 in size ///'
- '/// One in the gallery folder itself and the other one in a subfolder. ///'
+ printlog " Short check, if at least 2 files exist in the gallery, and if they are > 0 in size"
+ printlog " One in the gallery folder itself and the other one in a subfolder."
dim sFile(1) as string
dim i as integer
sFile(0) = ConvertPath ( gOfficeBasisPath + "share/gallery/apples.gif" ) '
sFile(1) = ConvertPath ( gOfficeBasisPath + "share/gallery/bullets/coffee_1.gif" ) '
- '/// Open a new document
+ printlog " Open a new document"
call hNewDocument
for i = 0 to 1
- '/// Click to deselect any selected objects ///'
+ printlog " Click to deselect any selected objects"
gMouseclick 1, 50
if FileExists(sFile(i)) then
if (FileLen(sFile(i)) > 0 ) then
@@ -981,7 +944,6 @@ testcase tGallery_Quick_check
warnlog "File doesn't exist: '" + sFile(i) + "'"
end if
next i
- '///close the document
+ printlog "close the document"
call hCloseDocument
-endcase
-
+endcase 'tGallery_Quick_check \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/gallery2.inc b/testautomation/graphics/required/includes/global/gallery2.inc
index 97f28a998..dd2ea7015 100644
--- a/testautomation/graphics/required/includes/global/gallery2.inc
+++ b/testautomation/graphics/required/includes/global/gallery2.inc
@@ -30,22 +30,11 @@
'* short description : Checking all gallery themes
'*
'*****************************************************************
-'*
-' #1 tLoad100GalleryGraphicFiles 'Inserting 100 gallery graphics and checking the sizes
-' #1 tCheckAllGalleryGraphicFiles 'Checking the size ( > 0 Byte ) of all gallery-files.
-' #1 tInsertGalleryObjects 'Inserting random objects via contextmenu-insert-copy.
-' #0 LoadGraphic
-' #0 CheckGraphic
-' #0 makeNumOutOfText
-' #1 tSettingsToCM 'Measurement unit for textdocuments to cm
-' #1 tResetSettings 'Resetting the measurement unit for textdocuments.
-'*
-'\******************************************************************************
testcase tSettingsToCM
printlog " Setting the measurement unit for textdocuments to cm."
- printlog " +Tools / options / text documents / general"
+ printlog " Tools / options / text documents / general"
ExitRestartTheOffice
WaitSlot (10000)
Call hNewDocument
@@ -61,7 +50,7 @@ endcase
'-------------------------------------------------------------------------
testcase tLoad100GalleryGraphicFiles
- '/// Inserting all gallery graphics in a Writer document and checking the sizes.
+ printlog "Inserting all gallery graphics in a Writer document and checking the sizes."
Dim lsFiles (3000) as String
Dim lsGraphics (3000) as String
Dim i as Integer
@@ -71,7 +60,7 @@ testcase tLoad100GalleryGraphicFiles
Dim corLoad as Boolean
Dim x as boolean
- '/// Geting all installed gallery objects out of the installation in a list.
+ printlog "Geting all installed gallery objects out of the installation in a list."
if gNetzInst = TRUE then
GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
else
@@ -79,8 +68,8 @@ testcase tLoad100GalleryGraphicFiles
end if
call GetOnlyGraphics ( lsFiles (), lsGraphics() )
iCount = ListCount ( lsGraphics() )
- printlog " We have " + iCount + " graphics in the gallery."
- '/// + Open a new document
+ printlog "We have " + iCount + " graphics in the gallery."
+ printlog "Open a new document"
call hNewDocument
for i = 1 to 100
@@ -94,16 +83,15 @@ testcase tLoad100GalleryGraphicFiles
corLoad = FALSE
try
- '/// <i>Loop begin</i>
- '/// + Inserting all gallery files and checking the sizes
- '/// +- Iinsert / graphic / from file
- '/// +- Check the size in 'format / graphics' on the <i>Type</i> tabpage
- '/// +-- The size should noz be smaler than 17*25cm / photos 21*25cm
- '/// + Deleting the graphic with &lt;delete&gt; of the keyboard
- '/// <i>Loop ends</i>
+ printlog "Loop begin"
+ printlog "Inserting all gallery files and checking the sizes"
+ printlog "Iinsert / graphic / from file"
+ printlog "Check the size in 'format / graphics' on the Type tabpage"
+ printlog "The size should not be smaler than 17*25cm / photos 21*25cm"
+ printlog "Deleting the graphic with &lt;delete&gt; of the keyboard"
+ printlog "Loop ends"
x = LoadGraphic ( lsGraphics(t), corLoad )
sleep(1)
- printlog
catch
ExceptLog
if corLoad = FALSE then
@@ -113,21 +101,21 @@ testcase tLoad100GalleryGraphicFiles
end if
endcatch
if (not x) then
- printlog " Tested nr: " + t + " : " + lsGraphics(t)
+ printlog "Tested nr: " + t + " : " + lsGraphics(t)"
end if
next i
- '/// Close the gallery ///'
+ printlog "Close the gallery"
ToolsGallery
WaitSlot (2000)
- '/// Close the document ///'
+ printlog "Close the document"
call hCloseDocument
endcase 'tLoadAllGalleryGraphicFiles
'-------------------------------------------------------------------------
testcase tCheckAllGalleryGraphicFiles
-'/// Checking the filesize of all gallery graphics.
+printlog "Checking the filesize of all gallery graphics."
Dim lsFiles (3000) as String
Dim lsGraphics (3000) as String
Dim i as Integer
@@ -137,7 +125,7 @@ testcase tCheckAllGalleryGraphicFiles
Dim corLoad as Boolean
Dim x as boolean
- '/// Geting all installed gallery objects out of the installation in a list.
+ printlog " Geting all installed gallery objects out of the installation in a list."
if gNetzInst = TRUE then
GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
else
@@ -145,20 +133,20 @@ testcase tCheckAllGalleryGraphicFiles
end if
call GetOnlyGraphics ( lsFiles (), lsGraphics() )
iCount = ListCount ( lsGraphics() )
- printlog " We have " + iCount + " graphics in the gallery."
- '/// Open a new document
+ printlog "We have " + iCount + " graphics in the gallery."
+ printlog "Open a new document"
call hNewDocument
for i=1 to iCount
corLoad = FALSE
try
- '/// <i>Loop begin</i>
- '///+ Inserting all gallery files and checking the sizes
- '///+- Iinsert / graphic / from file
- '///+- Check the size in 'format / graphics' on the <i>Type</i> tabpage
- '///+-- The size should noz be smaler than 17*25cm / photos 21*25cm
- '///+ Deleting the graphic with &lt;delete&gt; of the keyboard
- '/// <i>Loop ends</i>
+ printlog "Loop begin"
+ printlog "Inserting all gallery files and checking the sizes"
+ printlog "Iinsert / graphic / from file"
+ printlog "Check the size in 'format / graphics' on the <i>Type</i> tabpage"
+ printlog "The size should noz be smaler than 17*25cm / photos 21*25cm"
+ printlog "Deleting the graphic with &lt;delete&gt; of the keyboard"
+ printlog "Loop ends"
x = CheckGraphic ( lsGraphics(i), corLoad )
catch
ExceptLog
@@ -172,10 +160,10 @@ testcase tCheckAllGalleryGraphicFiles
printlog " Tested nr: " + i + " : " + lsGraphics(i)
end if
next i
- '/// Close the gallery ///'
+ printlog " Close the gallery"
ToolsGallery
WaitSlot (2000)
- '/// Close the document ///'
+ printlog " Close the document"
call hCloseDocument
endcase 'tLoadAllGalleryGraphicFiles
@@ -194,30 +182,30 @@ testcase tInsertGalleryObjects
Dim iCount as Integer
Dim corLoad, x as Boolean
- '/// 1. Select theme ///'
+ printlog "1. Select theme"
call hNewDocument
call hOpenGallery
kontext "Gallery"
CountOfThemes = Gallerys.GetItemCount
for ct = 1 to CountOfThemes
Gallerys.Select ct
- printlog " Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
+ printlog "Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
kontext "Gallery"
CountOfItems = View.GetItemCount()
- '/// 2. Choose if we should test 3,4 or 5 objects. ///'
+ printlog " 2. Choose if we should test 3,4 or 5 objects."
for d = 1 to 1
randomize
HowManyItems=Int((5*Rnd)+(3*Rnd))
if CountOfItems = 0 then
- QaErrorLog " There were no objects in the the gallery-theme on position: " + ct
+ QaErrorLog "There were no objects in the the gallery-theme on position: " + ct
else
if (HowManyItems<3) then 'just so we get it between 3 and 5.
d = d - 1
else
- printlog " Will now select and copy " + HowManyItems + " items from this Theme."
+ printlog "Will now select and copy " + HowManyItems + " items from this Theme."
end if
for i = 1 to HowManyItems
- '/// 3. Select the objects ///'
+ printlog " 3. Select the objects"
for x = 1 to 1
randomize
WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd))
@@ -241,25 +229,25 @@ testcase tInsertGalleryObjects
dim number as integer
number = MenuGetItemCount
if (number > 2) AND (number < 10) then
- '/// 4. Copy the selected item into our document. ///'
- hMenuSelectNr (1) 'Insert
- hMenuSelectNr (1) 'As Copy
+ printlog " 4. Copy the selected item into our document."
+ hMenuSelectNr (1)
+ hMenuSelectNr (1)
sleep (1)
else
- Warnlog " The contextmenu came up, but the number of entries were strange."
- printlog " Number of entries:" + number
+ Warnlog "The contextmenu came up, but the number of entries were strange."
+ printlog "Number of entries:" + number
MenuSelect(0)
end if
catch
- warnlog " A contextmenu didnt come up for the gallery-theme on position: " + ct
+ warnlog "A contextmenu didnt come up for the gallery-theme on position: " + ct
i = HowManyItems
endcatch
- '/// 5. Repeat 3.-5. until 2. is fulfilled. ///'
+ printlog "5. Repeat 3.-5. until 2. is fulfilled."
next i
- end if 'if the theme didnt have any objects, we landed here.
+ end if
next d
- '/// 6. Change Theme. ///'
- '/// 7. Repeat 2. - 8. until all themes are done. ///'
+ printlog " 6. Change Theme."
+ printlog " 7. Repeat 2. - 8. until all themes are done."
next ct
Kontext "Gallery"
@@ -268,7 +256,7 @@ testcase tInsertGalleryObjects
WaitSlot (2000)
end if
- '/// Remove the last copied object. ///'
+ printlog " Remove the last copied object."
hTypeKeys "<DELETE>"
call hCloseDocument
@@ -288,4 +276,4 @@ testcase tResetSettings
call hCloseDocument
endcase 'tResetSettings
-'-------------------------------------------------------------------------
+'------------------------------------------------------------------------- \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc
index 5e2b4912f..fee150c83 100644
--- a/testautomation/graphics/required/includes/global/id_001.inc
+++ b/testautomation/graphics/required/includes/global/id_001.inc
@@ -82,9 +82,9 @@ testcase tiFileSaveAs
sFilter (0) = 0 ' initalize ;-)...
printlog " used document: graphics\required\input\tbo_alf_.od?"
- sFileName = "graphics\required\input\tbo_alf_." + ExtensionString ' this is the file with all features
+ sFileName = "graphics\required\input\tbo_alf_." + ExtensionString
printlog "FileName is " + sFileName
- sFile = "isas_" ' this is the filename of the export files
+ sFile = "isas_"
sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform) ' this is the export path
printlog "sPath is " + sPath
if dir (sPath) = "" then
@@ -92,7 +92,7 @@ testcase tiFileSaveAs
end if
printlog " deleting all files in output directory: \\user\\work\\graphics\\required\\gApplication gPlatform isas_*"
- if gSamePC = TRUE then ' delete export directory
+ if gSamePC = TRUE then
GetFileList ( sPath, sFile+"*", Exlist() )
if KillFileList ( Exlist() ) <> TRUE then
Warnlog "Couldn't delete all Files in Output-Export-Directory, the followings are still there:"
@@ -107,7 +107,7 @@ testcase tiFileSaveAs
WaitSlot (3000)
printlog "running 5 times save as with different Filters"
- for i = 1 to 6 'run it 5 times
+ for i = 1 to 6
printlog "calling Save as Dialog"
FileSaveAs
WaitSlot (2000)
diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc
index 42b0170fe..a14912c6f 100644
--- a/testautomation/graphics/required/includes/global/id_004.inc
+++ b/testautomation/graphics/required/includes/global/id_004.inc
@@ -307,11 +307,11 @@ testcase tiInsertChart
InsertChart
WaitSlot (2000)
Kontext "Messagebox"
- if Messagebox.Exists then
- Warnlog Messagebox.GetText
- Messagebox.OK
- sleep 1
- end if
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
gMouseClick 1,1
sleep 2
printlog "close application "
@@ -360,17 +360,17 @@ testcase tiInsertSpreadsheet
InsertSpreadsheetDraw
WaitSlot (2000)
Kontext "Messagebox"
- if Messagebox.Exists (5) then
- Warnlog Messagebox.GetText
- Messagebox.OK
- end if
- sleep 2
- printlog "click somewhere out of the object, to deselect it "
- gMouseClick 1,1
- sleep 1
- printlog "select and delete object with keys: <Tab><Delete> "
- hTypekeys "<Tab><Delete>"
- sleep 2
+ if Messagebox.Exists (5) then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ end if
+ sleep 2
+ printlog "click somewhere out of the object, to deselect it "
+ gMouseClick 1,1
+ sleep 1
+ printlog "select and delete object with keys: <Tab><Delete> "
+ hTypekeys "<Tab><Delete>"
+ sleep 2
printlog "close application "
Call hCloseDocument
diff --git a/testautomation/graphics/required/includes/global/id_005.inc b/testautomation/graphics/required/includes/global/id_005.inc
index 6ec5a5988..cba38479f 100644
--- a/testautomation/graphics/required/includes/global/id_005.inc
+++ b/testautomation/graphics/required/includes/global/id_005.inc
@@ -54,7 +54,7 @@ sub id_005
call tiFormatFontwork
call tiFormatGroup
printlog " format->group is also modify->group "
- ' tiFormatLayer ' not in impress
+
end sub
'------------------------------------------------------------------------------
testcase tiFormatDefault
diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc
index 434959a7a..5f4b528d6 100644
--- a/testautomation/graphics/required/includes/global/id_006.inc
+++ b/testautomation/graphics/required/includes/global/id_006.inc
@@ -43,19 +43,21 @@ sub id_Tools
call tiToolsEyedropper
call tToolsOptionsTest ' global one
end sub
+
'-------------------------------------------------------------------------------
+
testcase tiToolsSpellchecking
if not gOOO then ' Spellcheck doesn't work in OOo builds.
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- WaitSlot (2000) 'sleep 2
- '/// call subroutine 'hSetSpellHypLanguage' for setting the default language in th eoptions, to enable it for languages, which don't provide a dictionary (usually asian ones) ///'
+ WaitSlot (2000)
+ printlog " call subroutine 'hSetSpellHypLanguage' for setting the default language in th eoptions, to enable it for languages, which don't provide a dictionary (usually asian ones)"
call hSetSpellHypLanguage
- '/// create textframe with content ///'
+ printlog "create textframe with content"
Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40)
sleep 1
- '/// Tools->Spellcheck->Check ///'
+ printlog "Tools->Spellcheck->Check"
ToolsSpellCheck
WaitSlot (1000) 'sleep 1
Kontext "MessageBox"
@@ -67,14 +69,14 @@ testcase tiToolsSpellchecking
Kontext "Rechtschreibung"
if Rechtschreibung.exists then
Call DialogTest ( Rechtschreibung )
- '/// close dialog 'Spellcheck' ///'
+ printlog "close dialog 'Spellcheck'"
Rechtschreibung.Close
else
warnlog " Spellcheck dialog didn't came up :-("
end if
end if
sleep 1
- '/// say OK to messagebox about 'Spellcheck has been completed' ///'
+ printlog "say OK to messagebox about 'Spellcheck has been completed'"
Kontext "Messagebox"
if Messagebox.exists (5) then
warnlog "Shouldn't be any messagebox after pressing close in spellchecker"
@@ -82,26 +84,30 @@ testcase tiToolsSpellchecking
sleep (2)
Kontext
end if
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
else goto endsub
endif
-endcase
+endcase 'tiToolsSpellchecking
+
'-------------------------------------------------------------------------------
+
testcase tiToolsSpellcheckingAutomatic
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// Tools->Spellcheck->AutoSpellcheck ///'
+ printlog "Tools->Spellcheck->AutoSpellchec"
ToolsSpellcheckAutoSpellcheck
- '/// create textframe with text ///'
+ printlog " create textframe with text "
Call hTextrahmenErstellen ("What", 10, 10, 30, 40)
sleep 2
- '/// Tools->Spellcheck->AutoSpellcheck ///'
+ printlog "Tools->Spellcheck->AutoSpellcheck "
ToolsSpellcheckAutoSpellcheck
- '/// close application ///'
+ printlog "close application "
Call hCloseDocument
-endcase
+endcase 'tiToolsSpellcheckingAutomatic
+
'-------------------------------------------------------------------------------
+
testcase tiToolsThesaurus
Dim sWord as string
Dim sExt as string
@@ -164,20 +170,16 @@ testcase tiToolsThesaurus
sWord = "Hello"
endif
end select
-
PrintLog "Thesaurus with 1 word: " + sWord
-
if( Ucase(gApplication) = "DRAW" ) then
sExt = ".odg"
elseif( Ucase(gApplication) = "IMPRESS" ) then
sExt = ".odp"
endif
-
Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_" + iSprache + sExt)
Call sMakeReadOnlyDocumentEditable()
Call hTextrahmenErstellen (sWord,20,20,50,30)
sleep 1
-
printlog "select the word"
hTypeKeys "<Home><SHIFT END>"
@@ -196,132 +198,138 @@ testcase tiToolsThesaurus
warnlog "the thesaurus does not appear"
end if
Call hCloseDocument
-endcase
+endcase 'tiToolsThesaurus
+
'-------------------------------------------------------------------------------
+
testcase tiToolsHyphenation
- '/// open application ///'
+ printlog "open application "
Call hNewDocument
- '/// Tools->Hyphenation ///'
+ printlog "Tools->Hyphenation "
ToolsLanguageHyphenationDraw
- WaitSlot (2000) 'sleep 2
- '/// Tools->Hyphenation ///'
+ WaitSlot (2000)
+ printlog "Tools->Hyphenation "
ToolsLanguageHyphenationDraw
- '/// close application ///'
+ printlog "close application "
Call hCloseDocument
-endcase
+endcase 'tiToolsHyphenation
+
'-------------------------------------------------------------------------------
+
testcase tiToolsAutoCorrect
dim iLanguage as integer ' for resetting the language
- '/// open application ///'
+ printlog "open application "
Call hNewDocument
- WaitSlot (1000) 'sleep 1
- '/// Tools->Autocorrect ///'
+ WaitSlot (1000)
+ printlog "Tools->Autocorrect "
ToolsAutocorrect
- WaitSlot (2000) 'sleep 1
+ WaitSlot (2000)
Kontext
- '/// select tabpage 'Replace' ///'
+ printlog "select tabpage 'Replace' "
Messagebox.SetPage TabErsetzung
Kontext "TabErsetzung"
- Call DialogTest ( TabErsetzung )
- '/// remember the language, that is selected in the 'Replacements and exceptions for Language' Listbox ///'
- iLanguage = WelcheSprache.GetSelIndex
- '///+ change the language to the 1st from the top ///'
- WelcheSprache.Select 1 ' select language with empty list
- '///+ type something into the field 'replace' ///'
- Kuerzel.SetText "a"
- '///+ type something into the field 'with' ///'
- ErsetzenDurch.SetText "b"
- '///+ click button 'new' ///'
- Neu.Click
- sleep 1
- '///+ click button 'delete' ///'
+ Call DialogTest ( TabErsetzung )
+ printlog "remember the language, that is selected in the 'Replacements and exceptions for Language' Listbox "
+ iLanguage = WelcheSprache.GetSelIndex
+ printlog "+ change the language to the 1st from the top "
+ WelcheSprache.Select 1 ' select language with empty list
+ printlog "+ type something into the field 'replace' "
+ Kuerzel.SetText "a"
+ printlog "+ type something into the field 'with' "
+ ErsetzenDurch.SetText "b"
+ printlog "+ click button 'new' "
+ Neu.Click
+ sleep 1
+ printlog "+ click button 'delete' "
+ Loeschen.Click
+ sleep 1
+ try
+ printlog "+ click button 'delete' again "
Loeschen.Click
- sleep 1
- try
- '///+ click button 'delete' again ///'
- Loeschen.Click
- catch
- printlog "ok was CRASH before" '#
- endcatch
- '///+ if nothing happens it is ok, was a Crash before :-( ///'
- '///+ restore cthe remembered language ///'
- WelcheSprache.select (iLanguage)
- Kontext
- '/// select tabpage 'Exception' ///'
- Messagebox.SetPage TabAusnahmen
- Kontext "TabAusnahmen"
- Call DialogTest ( TabAusnahmen )
- '/// type something into the field 'Abbreviations' ///'
- Abkuerzungen.settext "Lala"
- '///+ click button 'new' in 'Abbreviations' ///'
- AbkuerzungenNeu.click
- '///+ click button 'delete' in 'Abbreviations' ///'
- AbkuerzungenLoeschen.click
- '/// type something into the field 'Word with TWo INitial CApitals' ///'
- Woerter.settext "LALA"
- '///+ check the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///'
- WoerterAutomatisch.Check
- '///+ click button 'new' in 'Word with TWo INitial CApitals' ///'
- WoerterNeu.click
- '///+ click button 'delete' in 'Word with TWo INitial CApitals' ///'
- WoerterLoeschen.click
- '///+ UNcheck the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///'
- WoerterAutomatisch.UnCheck
- Kontext
- '/// select tabpage 'Options' ///'
- Messagebox.SetPage TabOptionen
- Kontext "TabOptionen"
- Call DialogTest ( TabOptionen )
- Kontext
- '/// select tabpage 'Custom Quotes' ///'
- Messagebox.SetPage TabLocalizedOptions
- Kontext "TabLocalizedOptions" ' 1a
- '/// in the part of 'single quotes': ///'
- '///+ check 'replace' ///'
- '///+ click 'start quote' ///'
- SingleQuotesReplace.Check
- SingleQuotesStart.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 1 )
- '///+ cancel dialog 'start quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabLocalizedOptions" ' 1b
- '///+ click 'end quote' ///'
- SingleQuotesEnd.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 2 )
- '///+ cancel dialog 'end quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabLocalizedOptions" ' 1s
- '///+ click button 'default' ///'
- SingleQuotesDefault.Click
+ catch
+ printlog "ok was CRASH before"
+ endcatch
+ printlog "+ if nothing happens it is ok, was a Crash before :-( "
+ printlog "+ restore cthe remembered language "
+ WelcheSprache.select (iLanguage)
+ Kontext
+ printlog "select tabpage 'Exception' "
+ Messagebox.SetPage TabAusnahmen
+ Kontext "TabAusnahmen"
+ Call DialogTest ( TabAusnahmen )
+ printlog "type something into the field 'Abbreviations' "
+ Abkuerzungen.settext "Lala"
+ printlog "+ click button 'new' in 'Abbreviations' "
+ AbkuerzungenNeu.click
+ printlog "+ click button 'delete' in 'Abbreviations' "
+ AbkuerzungenLoeschen.click
+ printlog "type something into the field 'Word with TWo INitial CApitals' "
+ Woerter.settext "LALA"
+ printlog "+ check the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' "
+ WoerterAutomatisch.Check
+ printlog "+ click button 'new' in 'Word with TWo INitial CApitals' "
+ WoerterNeu.click
+ printlog "+ click button 'delete' in 'Word with TWo INitial CApitals' "
+ WoerterLoeschen.click
+ printlog "+ UNcheck the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' "
+ WoerterAutomatisch.UnCheck
+ Kontext
+ printlog "select tabpage 'Options' "
+ Messagebox.SetPage TabOptionen
+ Kontext "TabOptionen"
+ Call DialogTest ( TabOptionen )
+ Kontext
+ printlog "select tabpage 'Custom Quotes' "
+ Messagebox.SetPage TabLocalizedOptions
+ Kontext "TabLocalizedOptions" ' 1a
+ printlog "in the part of 'single quotes': "
+ printlog "+ check 'replace' "
+ printlog "+ click 'start quote' "
+ SingleQuotesReplace.Check
+ SingleQuotesStart.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 1 )
+ printlog "+ cancel dialog 'start quote' "
+ Sonderzeichen.Cancel
+ Kontext "TabLocalizedOptions" ' 1b
+ printlog "+ click 'end quote' "
+ SingleQuotesEnd.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 2 )
+ printlog "+ cancel dialog 'end quote' "
+ Sonderzeichen.Cancel
+ Kontext "TabLocalizedOptions" ' 1s
+ printlog "+ click button 'default' "
+ SingleQuotesDefault.Click
- Kontext "TabLocalizedOptions" ' 2a
- '/// in the part of 'double quotes': ///'
- '///+ click 'start quote' ///'
- DoubleQuotesStart.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 3 )
- '///+ cancel dialog 'start quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabLocalizedOptions" ' 2b
- '///+ click 'end quote' ///'
- DoubleQuotesEnd.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 4 )
- '///+ cancel dialog 'end quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabLocalizedOptions" ' 2s
- '///+ click button 'default' ///'
- DoubleQuotesDefault.Click
- '///+ UNcheck 'replace' ///'
- SingleQuotesReplace.UnCheck
- '/// cancel dialog 'AtorCorrect' ///'
- TabLocalizedOptions.cancel
- '/// close application ///'
+ Kontext "TabLocalizedOptions" ' 2a
+ printlog " in the part of 'double quotes': "
+ printlog "+ click 'start quote' "
+ DoubleQuotesStart.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 3 )
+ printlog "+ cancel dialog 'start quote' "
+ Sonderzeichen.Cancel
+ Kontext "TabLocalizedOptions" ' 2b
+ printlog "+ click 'end quote' "
+ DoubleQuotesEnd.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 4 )
+ printlog "+ cancel dialog 'end quote' "
+ Sonderzeichen.Cancel
+ Kontext "TabLocalizedOptions" ' 2s
+ printlog "+ click button 'default' "
+ DoubleQuotesDefault.Click
+ printlog "+ UNcheck 'replace' "
+ SingleQuotesReplace.UnCheck
+ printlog " cancel dialog 'AtorCorrect' "
+ TabLocalizedOptions.cancel
+ printlog " close application "
Call hCloseDocument
-endcase
+
+endcase 'tiToolsAutoCorrect
'-------------------------------------------------------------------------------
+
testcase tChineseTranslation
qaerrorlog( "#i89634# - Chinese Translation dialog does not close" )
@@ -336,139 +344,143 @@ testcase tChineseTranslation
sFileName = "graphics\required\input\tchinese.odg"
end if
- '/// Open application ///'
+ printlog "Open application "
Call hNewDocument
- WaitSlot (2000) 'sleep 1
- '/// Save old state and Activate Support for Asian language ///'
+ WaitSlot (2000)
+ printlog "Save old state and Activate Support for Asian language "
bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE)
- '/// Open Document ///'
+ printlog "Open Document "
Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
- '/// If write-protected - open as Temp-file ///'
+ printlog "If write-protected - open as Temp-file "
sleep (2)
Kontext "Standardbar"
- if Bearbeiten.GetState(2) <> 1 then
- Bearbeiten.Click '0 = not pressed. 1 = pressed.
- Kontext
- if Active.Exists(1) then
- Active.Yes
- else
- warnlog "No messagebox after making document editable? - Test canceled here"
- goto endsub
- end if
+ if Bearbeiten.GetState(2) <> 1 then
+ Bearbeiten.Click '0 = not pressed. 1 = pressed.
+ Kontext
+ if Active.Exists(1) then
+ Active.Yes
+ else
+ warnlog "No messagebox after making document editable? - Test canceled here"
+ goto endsub
end if
+ end if
if uCase(gApplication) = "IMPRESS" then
Kontext "DocumentImpress"
else
Kontext "DocumentDraw"
end if
- '/// Select all, Press RETURN to enter text in Editmode ///'
- '/// Move marker to top of the text, go two steps right, mark two characters ///'
+ printlog "Select all, Press RETURN to enter text in Editmode "
+ printlog "Move marker to top of the text, go two steps right, mark two characters "
EditSelectAll
hTypeKeys "<RETURN>"
hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>"
- '/// Open Chinesetranslation ///'
+ printlog "Open Chinesetranslation "
ToolsChineseTranslation
WaitSlot (2000) 'sleep 1
kontext "ChineseTranslation"
- '/// Check if everything is there ///'
- Call DialogTest ( ChineseTranslation )
- '/// Click on EditTerms ///'
- EditTerms.Click
- kontext "ChineseDictionary"
- '/// Check if everything is there ///'
- Call DialogTest ( ChineseDictionary )
- '/// Close dialog 'ChineseDictionary' with 'OK' ///'
- ChineseDictionary.Ok
+ printlog " Check if everything is there "
+ Call DialogTest ( ChineseTranslation )
+ printlog " Click on EditTerms "
+ EditTerms.Click
+ kontext "ChineseDictionary"
+ printlog " Check if everything is there "
+ Call DialogTest ( ChineseDictionary )
+ printlog " Close dialog 'ChineseDictionary' with 'OK' "
+ ChineseDictionary.Ok
kontext "ChineseTranslation"
- '/// Close dialog 'Chinese' with 'OK' ///'
- ChineseTranslation.OK
+ printlog " Close dialog 'Chinese' with 'OK' "
+ ChineseTranslation.OK
kontext
- '/// if messagebox exist, say OK; ('Spellcheck completed' or 'Word not found') ///'
- if Messagebox.exists (5) then
- printlog "Messagebox: "+Messagebox.gettext+"'"
- Messagebox.ok
- end if
- '/// Restore old state for Asian language ///'
+ printlog " if messagebox exist, say OK; ('Spellcheck completed' or 'Word not found') "
+ if Messagebox.exists (5) then
+ printlog "Messagebox: "+Messagebox.gettext+"'"
+ Messagebox.ok
+ end if
+ printlog " Restore old state for Asian language "
ActiveDeactivateAsianSupport(bSavedAsianSupport)
- '/// Close application ///'
+ printlog " Close application "
Call hCloseDocument
-endcase
+
+endcase 'tChineseTranslation
'-------------------------------------------------------------------------------
+
testcase tiToolsMacro
- '/// open application ///'
+ printlog "open application "
Call hNewDocument
WaitSlot (2000) 'sleep 2
- '/// Tools->Macro ///'
+ printlog "Tools->Macro "
ToolsMacro
Kontext "Makro"
- Call DialogTest ( Makro )
- '/// click button 'organizer...' ///'
- Verwalten.Click
-
+ Call DialogTest ( Makro )
+ printlog "click button 'organizer...' "
+ Verwalten.Click
Kontext
- '/// switch to tabpage 'Modules' ///'
- Messagebox.SetPage TabModule
- Kontext "TabModule"
- Call DialogTest ( TabModule )
-
+ printlog "switch to tabpage 'Modules' "
+ Messagebox.SetPage TabModule
+ Kontext "TabModule"
+ Call DialogTest ( TabModule )
Kontext
- '/// switch to tabpage 'Libraries' ///'
- Messagebox.SetPage TabBibliotheken
- Kontext "TabBibliotheken"
- Call DialogTest ( TabBibliotheken )
- '/// click lbutton 'append' ///'
- Hinzufuegen.Click
- Kontext "Messagebox"
- if Messagebox.Exists (5) then
- if Messagebox.GetRT = 304 then
- Warnlog Messagebox.Gettext
- Messagebox.Ok
- end if
- end if
- Kontext "OeffnenDlg"
- '/// cancel dialog 'append libraries' ///'
- OeffnenDlg.Cancel
- Kontext "TabBibliotheken"
- '/// click button 'new' ///'
- Neu.Click
- kontext "NeueBibliothek"
- sleep 1 'Bibliotheksname
- '/// cancel dialog 'new library' ///'
- NeueBibliothek.cancel
- Kontext "TabBibliotheken"
- '/// close dialog 'macro organizer' ///'
- TabBibliotheken.Close
+ printlog "switch to tabpage 'Libraries' "
+ Messagebox.SetPage TabBibliotheken
+ Kontext "TabBibliotheken"
+ Call DialogTest ( TabBibliotheken )
+ printlog "click lbutton 'append' "
+ Hinzufuegen.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists (5) then
+ if Messagebox.GetRT = 304 then
+ Warnlog Messagebox.Gettext
+ Messagebox.Ok
+ end if
+ end if
+ Kontext "OeffnenDlg"
+ printlog "cancel dialog 'append libraries' "
+ OeffnenDlg.Cancel
+ Kontext "TabBibliotheken"
+ printlog "click button 'new' "
+ Neu.Click
+ kontext "NeueBibliothek"
+ sleep 1 'Bibliotheksname
+ printlog "cancel dialog 'new library' "
+ NeueBibliothek.cancel
+ Kontext "TabBibliotheken"
+ printlog "close dialog 'macro organizer' "
+ TabBibliotheken.Close
Kontext "Makro"
- '/// close dialog 'macro' ///'
- Makro.Cancel
- '/// close application ///'
+ printlog "close dialog 'macro' "
+ Makro.Cancel
+ printlog "close application "
Call hCloseDocument
-endcase
+endcase 'tiToolsMacro
+
'-------------------------------------------------------------------------------
+
testcase tiToolsGallery
- '/// open application ///'
+ printlog "open application "
Call hNewDocument
- '/// Tools->Gallery ///'
+ printlog "Tools->Gallery "
ToolsGallery
WaitSlot (2000) 'sleep 1
- '/// Tools->Gallery ///'
+ printlog "Tools->Gallery "
ToolsGallery
- '/// close application ///'
+ printlog "close application "
Call hCloseDocument
-endcase
+endcase'tiToolsGallery
+
'-------------------------------------------------------------------------------
+
testcase tiToolsEyedropper
- '/// open application ///'
+ printlog "open application "
Call hNewDocument
- '/// Tools->Eyedropper ///'
+ printlog "Tools->Eyedropper "
ToolsEyedropper
Kontext "Pipette"
Call DialogTest (Pipette)
- '/// close dialog 'Eyedropper' ///'
+ printlog "close dialog 'Eyedropper' "
Pipette.Close
sleep 1
- '/// close application ///'
+ printlog "close application "
Call hCloseDocument
-endcase
+endcase 'tiToolsEyedropper
diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc
index 29791d4b7..81c265bca 100644
--- a/testautomation/graphics/required/includes/global/id_007.inc
+++ b/testautomation/graphics/required/includes/global/id_007.inc
@@ -34,7 +34,6 @@
sub id_007
printLog Chr(13) + "--------- id_007 ----------"
- ' in imp available via context menu, in draw via modify menu
call tdModifyFlipVertikal
call tdModifyFlipHorizontal
@@ -56,487 +55,460 @@ sub id_007
call tdModifyCombineSplit
end sub
'-------------------------------------------------------------------------------
-testcase tdModifyFlipVertikal
- '/// open application ///'
+testcase tdModifyFlipVertikal
+ printlog "open application"
Call hNewDocument ' imp: contextmenue same SID!
sleep 1
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Vertically ///'
- '///+ Modify->Flip->Vertically ///'
+ printlog "imp: Kontextmenu: Flip->Vertically"
ContextFlipVerticalDraw
Printlog "- Flip-vertical is working"
catch
Warnlog "- Flip-Vertical does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyFlipVertikal
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyFlipHorizontal
- '/// open application ///'
+ printlog "open application"
Call hNewDocument ' imp: contextmenue same SID!
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Horizontally ///'
- '///+ Modify->Flip->Horizontally ///'
+ printlog "imp: Kontextmenu: Flip->Horizontally"
ContextFlipHorizontalDraw
Printlog "- Flip-horizontal is working"
catch
Warnlog "- Flip-horizontal does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyFlipHorizontal
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoCurve
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Curve ///'
- '///+ Modify->Convert->To Curve ///'
+ printlog "Modify->Convert->To Curve"
ContextConvertIntoCurve
WaitSlot (2000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoCurve
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoPolygon
dim iWaitIndex as integer
- '/// open application ///'
- Call hNewDocument ' imp: contextmenue same SID!
+
+ printlog "open application"
+ Call hNewDocument
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
- '/// Check if the dialogue is there. If not - wait for maximum 10 seconds)
- iWaitIndex = 0
- do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
- warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// insert graphic: "global\input\graf_inp\enter.bmp" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
- sleep 3
- '/// Modify->Convert->To Polygon ///'
- '/// Modify->Convert->To Polygon ///'
- ContextConvertIntoPolygon
- Kontext "InPolygonUmwandeln"
- Call DialogTest (InPolygonUmwandeln)
- '/// check checkbox: 'Fill holes' ///'
- LoecherFuellen.Check
- '/// click more in number field: 'Number of colors' ///'
- Farbanzahl.More
- '/// click more in number field: 'Point reductionn' ///'
- Punktreduktion.More
- '/// click more in number field: 'Tile size' ///'
- Kachelgroesse.More
- '/// click button 'Preview' ///'
- Vorschau.Click
- sleep 10
- '/// cancel dialog 'Convert to Polygon' ///'
- InPolygonUmwandeln.Cancel
- sleep (2)
- '/// close application ///'
+ printlog "Check if the dialogue is there. If not - wait for maximum 10 seconds)"
+ iWaitIndex = 0
+ do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
+ warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ end if
+ printlog "insert graphic: global\input\graf_inp\enter.bmp"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
+ printlog "Modify->Convert->To Polygon"
+ ContextConvertIntoPolygon
+ Kontext "InPolygonUmwandeln"
+ Call DialogTest (InPolygonUmwandeln)
+ printlog "check checkbox: 'Fill holes'"
+ LoecherFuellen.Check
+ printlog "click more in number field: 'Number of colors'"
+ Farbanzahl.More
+ printlog "click more in number field: 'Point reductionn'"
+ Punktreduktion.More
+ printlog "click more in number field: 'Tile size'"
+ Kachelgroesse.More
+ printlog "click button 'Preview'"
+ Vorschau.Click
+ sleep 10
+ printlog "cancel dialog 'Convert to Polygon'"
+ InPolygonUmwandeln.Cancel
+ sleep (2)
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoPolygon
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoContour
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Contour ///'
- '/// Modify->Convert->To Contour ///'
+ printlog "Modify->Convert->To Contour"
ContextConvertIntoContour
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoContour
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertInto3D
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To 3D ///'
- '/// Modify->Convert->To 3D ///'
+ printlog "Modify->Convert->To 3D"
ContextConvertInto3D
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertInto3D
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoRotationObject
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen (20,20,50,50)
sleep 2
- '/// Modify->Convert->To 3D Rotation Object ///'
- '/// Modify->Convert->To 3D Rotation Object ///'
+ printlog "Modify->Convert->To 3D Rotation Object"
ContextConvertInto3DRotationObject
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoRotationObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoBitmap
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (3000)
Kontext "GrafikEinfuegenDlg"
- sleep 2
- '/// insert graphic: "global\input\graf_inp\columbia.dxf" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
- sleep 2
- Oeffnen.Click
- sleep 2
- try
- '/// Modify->Convert->To Bitmap ///'
- ContextConvertIntoBitmap
- Printlog "- Convert into bitmap is working"
- catch
- Warnlog "- Convert into bitmap does not work"
- endcatch
- '/// close application ///'
+ sleep 2
+ printlog "insert graphic: global\input\graf_inp\columbia.dxf"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
+ sleep 2
+ Oeffnen.Click
+ sleep 2
+ try
+ printlog "Modify->Convert->To Bitmap"
+ ContextConvertIntoBitmap
+ Printlog "- Convert into bitmap is working"
+ catch
+ Warnlog "- Convert into bitmap does not work"
+ endcatch
+printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoBitmap
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoMetaFile
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (1000)
kontext "Messagebox"
- if Messagebox.Exists (5) Then Messagebox.OK
- sleep 1
- Kontext "GrafikEinfuegenDlg"
- '/// insert graphic: "global\input\graf_inp\desp.bmp" ///'
- sleep 2
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
- sleep 2
- Preview.Click
- sleep 3
- Oeffnen.Click
- sleep 5
- try
- '/// Modify->Convert->To Metafile ///'
- '/// Modify->Convert->To Metafile ///'
- ContextConvertIntoMetafile
- Printlog "- convert into meta file does work"
- catch
- Warnlog "- convert into meta file does not work"
- endcatch
- '/// close application ///'
+ if Messagebox.Exists (5) Then Messagebox.OK
+ sleep 1
+ Kontext "GrafikEinfuegenDlg"
+ printlog "insert graphic: global\input\graf_inp\desp.bmp"
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ sleep 2
+ Preview.Click
+ sleep 3
+ Oeffnen.Click
+ sleep 5
+ try
+ printlog "Modify->Convert->To Metafile"
+ printlog "Modify->Convert->To Metafile"
+ ContextConvertIntoMetafile
+ Printlog "- convert into meta file does work"
+ catch
+ Warnlog "- convert into meta file does not work"
+ endcatch
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextConvertIntoMetaFile
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrange
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 10, 10, 20, 40 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 30, 50, 60 )
- '/// Modify->Arrange->Bring to Front ///'
- '///+ Modify->Arrange->Bring to Front ///'
+ printlog "Modify->Arrange->Bring to Front"
FormatArrangeBringToFront
WaitSlot (1000)
- '/// Modify->Arrange->Bring Forward ///'
- '///+ Modify->Arrange->Bring Forward ///'
+ printlog "Modify->Arrange->Bring Forward"
ContextArrangeBringForward
WaitSlot (1000)
- '/// Modify->Arrange->Send Backward ///'
- '///+ Modify->Arrange->Send Backward ///'
+ printlog "Modify->Arrange->Send Backward"
ContextArrangeBringBackward
WaitSlot (1000)
- '/// Modify->Arrange->Send to Back ///'
- '///+ Modify->Arrange->Send to Back ///'
+ printlog "Modify->Arrange->Send to Back"
FormatArrangeSendToBack
WaitSlot (1000)
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
- '/// Modify->Arrange->Reverse ///'
- '///+ Modify->Arrange->Reverse ///'
+ printlog "Modify->Arrange->Reverse"
ContextArrangeReverse
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyArrange
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrangeObjects
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30,30,50,50 )
- '/// Modify->Arrange->In Front of Object ///'
- '///+ Modify->Arrange->In Front of Object ///'
+ printlog "Modify->Arrange->In Front of Object"
ContextArrangeInFrontOfObject
- '/// click on the upper left rectangle ///'
+ printlog "click on the upper left rectangle"
gMouseClick 11,11
- '/// Modify->Arrange->Behind Object ///'
- '///+ Modify->Arrange->Behind Object ///'
+ printlog "Modify->Arrange->Behind Object"
ContextArrangeBehindObject
- '/// click on the lower right rectangle ///'
+ printlog "click on the lower right rectangle"
gMouseClick 45,45
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyArrangeObjects
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyAlignment
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 20, 20, 30, 50 )
- '/// Modify->Alignment->Left ///'
- '///+ Modify->Alignment->Left ///'
+ printlog "Modify->Alignment->Left"
ContextAlignmentLeft
WaitSlot (1000)
- '/// Modify->Alignment->Centered ///'
- '///+ Modify->Alignment->Centered ///'
+ printlog "Modify->Alignment->Centered"
ContextAlignmentCentered
WaitSlot (1000)
- '/// Modify->Alignment->Right ///'
- '///+ Modify->Alignment->Right ///'
+ printlog "Modify->Alignment->Right"
ContextAlignmentRight
WaitSlot (1000)
- '/// Modify->Alignment->Top ///'
- '///+ Modify->Alignment->Top ///'
+ printlog "Modify->Alignment->Top"
ContextAlignmentTop
WaitSlot (1000)
- '/// Modify->Alignment->Center ///'
- '///+ Modify->Alignment->Center ///'
+ printlog "Modify->Alignment->Center"
ContextAlignmentBottom
WaitSlot (1000)
- '/// Modify->Alignment->Bottom ///'
- '///+ Modify->Alignment->Bottom ///'
+ printlog "Modify->Alignment->Bottom"
ContextAlignmentCenter
WaitSlot (1000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyAlignment
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDistribution
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (3000)
- '/// create 3 rectangles ///'
+ printlog "create 3 rectangles"
Call sSelectEmptyLayout
Call hRechteckErstellen (20,20,30,30)
Call hRechteckErstellen (40,40,50,50)
Call hRechteckErstellen (60,60,70,70)
sleep 1
- '/// select all with keyboard: <STRG>+ <A> ///'
+ printlog "select all with keyboard: <STRG>+ <A>"
EditSelectAll
sleep 1
- '/// Modify->Distibution... ///'
- '///+ Modify->Distibution... ///'
+ printlog "Modify->Distibution..."
ContextDistribution
Kontext "VerteilenDlg"
- sleep 1
- Call DialogTest (VerteilenDlg)
- sleep 1
- '/// check radiobutton horizontal 'Left' ///'
- Links.Check
- '///+ check radiobutton 'Center' ///'
- MitteHorizontal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandHorizontal.Check
- '///+ check radiobutton 'right' ///'
- Rechts.Check
- '///+ check radiobutton 'none' ///'
- KeineHorizontal.Check
- '/// check radiobutton vertical 'top' ///'
- Oben.Check
- '///+ check radiobutton 'center' ///'
- MitteVertikal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandVertikal.Check
- '///+ check radiobutton 'bottom' ///'
- Unten.Check
- '///+ check radiobutton 'none' ///'
- KeineVertikal.Check
- '/// cancel dialog 'Distribution' ///'
- VerteilenDlg.Cancel
- sleep 2
- '/// close application ///'
+ sleep 1
+ Call DialogTest (VerteilenDlg)
+ sleep 1
+ printlog "check radiobutton horizontal 'Left'"
+ Links.Check
+ printlog "check radiobutton 'Center'"
+ MitteHorizontal.Check
+ printlog "check radiobutton 'spacing'"
+ AbstandHorizontal.Check
+ printlog "check radiobutton 'right'"
+ Rechts.Check
+ printlog "check radiobutton 'none'"
+ KeineHorizontal.Check
+ printlog "check radiobutton vertical 'top'"
+ Oben.Check
+ printlog "check radiobutton 'center'"
+ MitteVertikal.Check
+ printlog "check radiobutton 'spacing'"
+ AbstandVertikal.Check
+ printlog "check radiobutton 'bottom'"
+ Unten.Check
+ printlog "check radiobutton 'none'"
+ KeineVertikal.Check
+ printlog "cancel dialog 'Distribution'"
+ VerteilenDlg.Cancel
+ sleep 2
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextDistribution
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDescriptionObject
- '/// Open application ///'
+ printlog "Open application"
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
ContextDescriptionObject
Kontext "DescriptionObject"
- Call DialogTest (DescriptionObject)
- '/// Cancel dialog 'DescriptionObject' ///'
- DescriptionObject.Cancel
- '/// Close application ///'
+ Call DialogTest (DescriptionObject)
+ printlog "Cancel dialog 'DescriptionObject'"
+ DescriptionObject.Cancel
+ printlog "Close application"
Call hCloseDocument
-endcase
+endcase 'tdContextDescriptionObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextNameObject
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 40, 50, 60 )
sleep 1
- '/// select both by spanning a selection with the mouse ///'
+ printlog "select both by spanning a selection with the mouse"
gMouseMove 1,1,70,70
sleep 1
- '/// Modify->Group ///'
- '///+ Modify->Group ///'
+ printlog "Modify->Group"
FormatGroupGroup
WaitSlot (1000)
- '/// Modify->Name Object ///'
- '///+ Modify->Name Object ///'
+ printlog "Modify->Name Object"
ContextNameObject
Kontext "NameDlgObject"
- Call DialogTest (NameDlgObject)
- '/// cancel dialog 'name' ///'
- NameDlgObject.Cancel
- '/// Modify->UnGroup ///'
- '///+ Modify->UnGroup ///'
- FormatUngroupDraw
- '/// close application ///'
+ Call DialogTest (NameDlgObject)
+ printlog "cancel dialog 'name'"
+ NameDlgObject.Cancel
+ printlog "Modify->UnGroup"
+ FormatUngroupDraw
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdContextNameObject
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyConnectBreak
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (10,10,30,30)
Call hRechteckErstellen (35,35,50,50)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
- '/// Modify->Connect ///'
- '///+ Modify->Connect ///'
+ printlog "Modify->Connect"
ContextConnect
sleep 1
try
- '/// Modify->Break ///'
- '///+ Modify->Break ///'
+ printlog "Modify->Break"
ContextBreak
catch
- Warnlog "- Modify-Break does not work"
+ Warnlog "- Modify-Break does not work"
endcatch
sleep 1
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyConnectBreak
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyShapes
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
gMouseClick 50,50
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Merge ///'
- '///+ Modify->Shapes->Merge ///'
- ModifyShapesMerge ' 1
+ printlog "Modify->Shapes->Merge"
+ ModifyShapesMerge ' 1
WaitSlot (1000) 'sleep 1
- Printlog "- Modify-Shape merge is working"
+ Printlog "- Modify-Shape merge is working"
catch
- Warnlog "- Modify-shape merge is not working"
+ Warnlog "- Modify-shape merge is not working"
endcatch
- '/// select all and delete it ///'
+ printlog "select all and delete it"
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Substract ///'
- '///+ Modify->Shapes->Substract ///'
- ModifyShapesSubstract ' 2
- Printlog "- Modify-shape-substract is working"
+ printlog "Modify->Shapes->Substract"
+ ModifyShapesSubstract ' 2
+ Printlog "- Modify-shape-substract is working"
catch
- Warnlog "- Modify-shape substract is not working"
+ Warnlog "- Modify-shape substract is not working"
endcatch
sleep 1
- '/// select all and delete it ///'
+ printlog "select all and delete it"
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
sleep 1
Call hRechteckErstellen (60,60,80,80)
@@ -544,45 +516,42 @@ testcase tdModifyShapes
EditSelectall
sleep 1
try
- '/// Modify->Shapes->Intersect ///'
- '///+ Modify->Shapes->Intersect ///'
- ModifyShapesIntersect ' 3
- Printlog "- Modify-shape intersect is working"
+ printlog "Modify->Shapes->Intersect"
+ ModifyShapesIntersect ' 3
+ Printlog "- Modify-shape intersect is working"
catch
- Warnlog "- Modify-Shape intersect is not working"
+ Warnlog "- Modify-Shape intersect is not working"
endcatch
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyShapes
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyCombineSplit
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
sleep 1
- '/// create two rectangles ///'
+ printlog "create two rectangles"
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Combine ///'
- '///+ Modify->Shapes->Combine ///'
- ContextCombine
- Printlog "- Modify combine is working"
- '/// Modify->Shapes->Split ///'
- '///+ Modify->Shapes->Split ///'
- ContextSplit
- Printlog "- Modify-split is working"
+ printlog "Modify->Shapes->Combine"
+ ContextCombine
+ Printlog "- Modify combine is working"
+ printlog "Modify->Shapes->Split"
+ ContextSplit
+ Printlog "- Modify-split is working"
catch
- Warnlog "- Modify-combine and split are not working"
+ Warnlog "- Modify-combine and split are not working"
endcatch
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tdModifyCombineSplit
-'------------------------------------------------------------------------------------------------------------------------------------------------
+'------------------------------------------------------------------------------------------------------------------------------------------------ \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_008.inc b/testautomation/graphics/required/includes/global/id_008.inc
index 8848c7337..f88174929 100644
--- a/testautomation/graphics/required/includes/global/id_008.inc
+++ b/testautomation/graphics/required/includes/global/id_008.inc
@@ -41,43 +41,44 @@ end sub
'-------------------------------------------------------------------------------
testcase tiWindowNewWindow
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Window->New Window ///'
+ printlog "Window->New Window"
WindowNewWindow
WaitSlot (2000)
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tiWindowNewWindow
+
+'-------------------------------------------------------------------------------
testcase tidWindow123
goto endsub '' testing TBO: 29.03.2002
dim iMenues as integer
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create rectangle ///'
+ printlog "create rectangle"
Call hRechteckErstellen ( 10, 10, 20, 40 )
Kontext "DocumentImpress"
- DocumentImpress.UseMenu
- iMenues = MenuGetItemCount
- warnlog "---- Number of Main menus: " & iMenues
- MenuSelect(Menugetitemid(8))
- sleep 1
- iMenues = MenuGetItemCount
- printlog "---- Number of Main menus: " & iMenues
- ' MenuSelect(Menugetitemid(14))
- sleep 1
- i=1
- printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- i=2
- printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- warnlog "Dynamic entries not accessible ? :-((((("
- ' i=3
- ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- '/// close application ///'
+ DocumentImpress.UseMenu
+ iMenues = MenuGetItemCount
+ warnlog "---- Number of Main menus: " & iMenues
+ MenuSelect(Menugetitemid(8))
+ sleep 1
+ iMenues = MenuGetItemCount
+ printlog "---- Number of Main menus: " & iMenues
+ ' MenuSelect(Menugetitemid(14))
+ sleep 1
+ i=1
+ printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
+ i=2
+ printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
+ warnlog "Dynamic entries not accessible ? :-((((("
+ ' i=3
+ ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
+ printlog "close application"
Call hCloseDocument
-endcase
-
+endcase 'tidWindow123 \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc
index d03d99b60..3680dfafb 100644
--- a/testautomation/graphics/required/includes/global/id_009.inc
+++ b/testautomation/graphics/required/includes/global/id_009.inc
@@ -43,252 +43,238 @@ sub id_009
end sub
'------------------------------------------------------------------------------
-testcase tmHelpHelpAgent
+testcase tmHelpHelpAgent
Call hNewDocument
-
hTBOtypeInDoc
-
HelpHelpAgent ' it's just a switch
sleep 2
HelpHelpAgent
-
Call hCloseDocument
-endcase
+endcase 'tmHelpHelpAgent
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
+'------------------------------------------------------------------------------
testcase tmHelpTips
Call hNewDocument
hTBOtypeInDoc
-
HelpTips
Sleep 2
HelpTips
-
Call hCloseDocument
-endcase
+endcase 'tmHelpTips
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
+'------------------------------------------------------------------------------
testcase tmHelpExtendedTips
Call hNewDocument
hTBOtypeInDoc
-
HelpEntendedHelp
Sleep (2)
HelpEntendedHelp
-
Call hCloseDocument
-endcase
+endcase 'tmHelpExtendedTips
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
+'------------------------------------------------------------------------------
testcase tmHelpAboutStarOffice
Call hNewDocument
hTBOtypeInDoc
-
HelpAboutStarOffice
Kontext "UeberStarMath"
DialogTest (UeberStarMath)
UeberStarMath.OK
-
Call hCloseDocument
-endcase
+endcase 'tmHelpAboutStarOffice
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
+'------------------------------------------------------------------------------
testcase tmHelpContents
- goto endsub '"#i84486# - tmHelpContents outcommented due to crash."
- dim i as integer
+ dim i as integer
- '/// open application ///'
- Call hNewDocument
- '/// Help->Contents ///'
- HelpContents
- sleep(8)
- kontext "StarOfficeHelp"
- if Not StarOfficeHelp.Exists then
- Warnlog "Help is not up!"
- else
- '/// get the number of entries in the listbox 'select Help modul' ///'
- Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
- '################ left half ################
- '/// on the left half of the dialog: ///'
- '///+ change to the tabpage 'Contents' ///'
- TabControl.SetPage ContentPage
- '///+ get the number of entries in the listbox 'MAin help themes' ///'
- Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
- '///+ change to the tabpage 'Index' ///'
- TabControl.SetPage IndexPage
- '///+ get the number of entries in the listbox 'Search term' ///'
- Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
- sleep 5
- '///+ click on button 'Display' ///'
- DisplayIndex.Click
- sleep 5
- '///+ change to the tabpage 'Find' ///'
- TabControl.SetPage FindPage
- '///+ get the number of entries in the listbox 'Search term' ///'
- Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
- '/// If the Search-Text-Field is empty - Check that the Find-button is deactivated ///'
- if SearchFind.GetSelText = "" then
- if FindButton.IsEnabled then
- warnlog " The Find-Button should have been inactive, but was active."
- endif
- else
- warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
- endif
- '/// Insert some irrelevant text to get 0 results from the search. ///'
- SearchFind.SetText "Doobbidedooo"
- '///+ click on button 'Find' ///'
- FindButton.Click
- kontext
- '///+ Messagebox comes up about: 'No topics found.' say OK ///'
- if (active.exists (2) )then
- Printlog "active came up: '" + active.gettext + "'"
- active.ok
+ printlog "open application"
+ Call hNewDocument
+ printlog "Help->Contents"
+ HelpContents
+ sleep(8)
+ kontext "StarOfficeHelp"
+ if Not StarOfficeHelp.Exists then
+ Warnlog "Help is not up!"
+ else
+ printlog "get the number of entries in the listbox 'select Help modul'"
+ Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
+ printlog "on the left half of the dialog:"
+ printlog "change to the tabpage 'Contents'"
+ TabControl.SetPage ContentPage
+ printlog "get the number of entries in the listbox 'MAin help themes'"
+ Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
+ printlog "change to the tabpage 'Index'"
+ TabControl.SetPage IndexPage
+ printlog "get the number of entries in the listbox 'Search term'"
+ Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
+ sleep 5
+ printlog "click on button 'Display'"
+ DisplayIndex.Click
+ sleep 5
+ printlog "change to the tabpage 'Find'"
+ TabControl.SetPage FindPage
+ printlog "get the number of entries in the listbox 'Search term'"
+ Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
+ printlog "If the Search-Text-Field is empty - Check that the Find-button is deactivated"
+ if SearchFind.GetSelText = "" then
+ if FindButton.IsEnabled then
+ warnlog " The Find-Button should have been inactive, but was active."
endif
- kontext "StarOfficeHelp"
- '///+ check checkbox 'Complete words only' ///'
- FindFullWords.Check
- '///+ check checkbox 'Find in headings only' ///'
- FindInHeadingsOnly.Check
- '///+ get the number of entries in the listbox 'List of headings' ///'
- Printlog "Result: '" + Result.GetItemCount + "'"
- '///+ click on button 'Display' ///'
- DisplayFind.Click
- '///+ change to the tabpage 'Bookmarks' ///'
- TabControl.SetPage BookmarksPage
- '///+ get the number of entries in the listbox 'Bookmark list' ///'
- Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
- '///+ click on button 'Display' ///'
- DisplayBookmarks.Click
- '################ right half ################
- '/// on the right half of teh dialog: ///'
- '################ toolbar ################
- Kontext "TB_Help"
- '///+ click on button 'Hide/Show Navigation Pane' ///'
- Index.Click
+ else
+ warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
+ endif
+ printlog "Insert some irrelevant text to get 0 results from the search."
+ SearchFind.SetText "Doobbidedooo"
+ printlog "click on button 'Find'"
+ FindButton.Click
+ kontext
+ printlog "Messagebox comes up about: 'No topics found.' say OK"
+ if (active.exists (2) )then
+ Printlog "active came up: '" + active.gettext + "'"
+ active.ok
+ endif
+ kontext "StarOfficeHelp"
+ printlog "check checkbox 'Complete words only' "
+ FindFullWords.Check
+ printlog "check checkbox 'Find in headings only' "
+ FindInHeadingsOnly.Check
+ printlog "get the number of entries in the listbox 'List of headings'"
+ Printlog "Result: '" + Result.GetItemCount + "'"
+ printlog "click on button 'Display'"
+ DisplayFind.Click
+ printlog "change to the tabpage 'Bookmarks'"
+ TabControl.SetPage BookmarksPage
+ printlog "get the number of entries in the listbox 'Bookmark list'"
+ Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
+ printlog "click on button 'Display'"
+ DisplayBookmarks.Click
+ printlog "on the right half of teh dialog:"
+ Kontext "TB_Help"
+ printlog "click on button 'Hide/Show Navigation Pane'"
+ Index.Click
+ sleep 1
+ printlog "click on button 'Hide/Show Navigation Pane'"
+ Index.Click
+ sleep 1
+ printlog "click on button 'First Page'"
+ GoToStart.Click
+ sleep 1
+ printlog "click on button 'Previous Page'"
+ Backward.Click
+ sleep 1
+ printlog "click on button 'Next Page'"
+ Forward.Click
+ sleep 1
+ printlog "click on button 'Print ...'"
+ PrintButton.Click
+ sleep (1)
+ kontext "Active"
+ if Active.Exists( 2 ) then
+ qaerrorlog "No default printer defined: " & Active.GetText
+ Active.Ok
+ end if
+ kontext "Printing"
+ if Printing.Exists( 2 ) then
+ printlog "In the dialog 'Print' press the button 'Cancel'"
+ Printing.cancel
+ else
+ warnlog "the Print-Dialogue didnt appear."
+ end if
+ Kontext "TB_Help"
+ printlog "click on button 'Add to Bookmarks ...'"
+ sleep 1
+ SetBookmarks.Click
+ sleep 1
+ Kontext "AddBookmark"
+ printlog "on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel'"
+ Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
+ AddBookmark.Cancel
+ sleep 1
+ '################ help display ################
+ kontext "HelpContent"
+ printlog "open the Context Menu of the Frame 'Help Content' and count the entries"
+ HelpContent.OpenContextMenu
+ sleep 1
+ Printlog " i: " + hMenuItemGetCount
+ hMenuClose()
+ '################ right scroolbar ################
+ kontext "HelpContent"
+ printlog "click on button 'Previous Page'"
+ if HelpContentUP.IsVisible then
+ HelpContentUP.Click
sleep 1
- '///+ click on button 'Hide/Show Navigation Pane' ///'
- Index.Click
- sleep 1
- '///+ click on button 'First Page' ///'
- GoToStart.Click
- sleep 1
- '///+ click on button 'Previous Page' ///'
- Backward.Click
- sleep 1
- '///+ click on button 'Next Page' ///'
- Forward.Click
- sleep 1
- '///+ click on button 'Print ...' ///'
- PrintButton.Click
- sleep (1)
-
- kontext "Active"
- if Active.Exists( 2 ) then
- qaerrorlog "No default printer defined: " & Active.GetText
- Active.Ok
- end if
-
- kontext "Printing"
- if Printing.Exists( 2 ) then
- '/// In the dialog 'Print' press the button 'Cancel' ///'
- Printing.cancel
- else
- warnlog "the Print-Dialogue didnt appear."
- end if
- Kontext "TB_Help"
- '///+ click on button 'Add to Bookmarks ...' ///'
- sleep 1
- SetBookmarks.Click
- sleep 1
- Kontext "AddBookmark"
- '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///'
- Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
- AddBookmark.Cancel
- sleep 1
- '################ help display ################
- kontext "HelpContent"
- '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///'
- HelpContent.OpenContextMenu
-
- sleep 1
- Printlog " i: " + hMenuItemGetCount
- hMenuClose()
- '################ right scroolbar ################
- kontext "HelpContent"
- '///+ click on button 'Previous Page' ///'
- if HelpContentUP.IsVisible then
- HelpContentUP.Click
- sleep 1
- endif
- '///+ click on button 'Navigation' ///'
- if HelpContentNAVIGATION.IsVisible then
- HelpContentNAVIGATION.Click
- sleep 1
- endif
- kontext "NavigationsFenster"
- '/// on the toolbox 'Navigation' press the window close button 'X' ///'
- NavigationsFenster.Close
- sleep 1
- kontext "HelpContent"
- '///+ click on button 'Next Page' ///'
- if HelpContentDOWN.IsVisible then
- HelpContentDOWN.Click
- sleep 1
- endif
- kontext "StarOfficeHelp"
- '/// close the help with the keys [strg]+[F4] ///'
- Printlog "trying to close the help now"
- try
- StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586#
- catch
- Warnlog "failed to close the help window :-("
- endcatch
- kontext "StarOfficeHelp"
- if StarOfficeHelp.Exists then
- warnlog "Help still up!"
- endif
- endif
- '/// close application ///'
- Call hCloseDocument
-endcase
+ endif
+ printlog "click on button 'Navigation'"
+ if HelpContentNAVIGATION.IsVisible then
+ HelpContentNAVIGATION.Click
+ sleep 1
+ endif
+ kontext "NavigationsFenster"
+ printlog "on the toolbox 'Navigation' press the window close button 'X'"
+ NavigationsFenster.Close
+ sleep 1
+ kontext "HelpContent"
+ printlog "click on button 'Next Page'"
+ if HelpContentDOWN.IsVisible then
+ HelpContentDOWN.Click
+ sleep 1
+ endif
+ kontext "StarOfficeHelp"
+ printlog "close the help with the keys [strg]+[F4]"
+ Printlog "trying to close the help now"
+ try
+ StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586#
+ catch
+ Warnlog "failed to close the help window :-("
+ endcatch
+ kontext "StarOfficeHelp"
+ if StarOfficeHelp.Exists then
+ warnlog "Help still up!"
+ endif
+ endif
+ printlog "close application"
+ Call hCloseDocument
+endcase 'tmHelpContents
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
+'------------------------------------------------------------------------------
testcase tCheckIfTheHelpExists
- '/// open application ///'
- Call hNewDocument
- '/// Bring up the help-window ///'
- HelpContents
- kontext "HelpContent"
- sleep (5)
- '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///'
- HelpContent.TypeKeys "<MOD1 A>"
- sleep (1)
- HelpContent.TypeKeys "<MOD1 C>"
- '/// If the clipboard now is empty, then nothing were copied, which means we have a bug. ///'
- if GetClipBoard = "" then
- Warnlog " No content in the Help-Content -view."
- else
- Printlog " The Help-Content -view contained content. Good."
- endif
- kontext "StarOfficeHelp"
- '/// Press "CTRL F4" to close the help-window. ///'
- try
- StarOfficeHelp.TypeKeys "<MOD1 F4>"
- catch
- Warnlog " Failed to close the help window :-("
- endcatch
- kontext "StarOfficeHelp"
- if StarOfficeHelp.Exists then
- warnlog "Help was still visible!"
- endif
- '/// And a dot into the main window. Making sure kontext and focus is right. ///'
- hTypeKeys "."
- '/// Close Application ///'
- Call hCloseDocument
+ printlog "open application"
+ Call hNewDocument
+ printlog "Bring up the help-window"
+ HelpContents
+ kontext "HelpContent"
+ sleep (5)
+ printlog "Press CTRL A and CTRL C to select all and then copy it."
+ HelpContent.TypeKeys "<MOD1 A>"
+ sleep (1)
+ HelpContent.TypeKeys "<MOD1 C>"
+ printlog "If the clipboard now is empty, then nothing were copied, which means we have a bug."
+ if GetClipBoard = "" then
+ Warnlog "No content in the Help-Content -view."
+ else
+ Printlog "The Help-Content -view contained content. Good."
+ endif
+ kontext "StarOfficeHelp"
+ printlog "Press CTRL F4 to close the help-window."
+ try
+ StarOfficeHelp.TypeKeys "<MOD1 F4>"
+ catch
+ Warnlog " Failed to close the help window :-("
+ endcatch
+ kontext "StarOfficeHelp"
+ if StarOfficeHelp.Exists then
+ warnlog "Help was still visible!"
+ endif
+ printlog "And a dot into the main window. Making sure kontext and focus is right."
+ hTypeKeys "."
+ printlog "Close Application"
+ Call hCloseDocument
endcase 'tCheckIfTheHelpExists
+
+'------------------------------------------------------------------------------ \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_011.inc b/testautomation/graphics/required/includes/global/id_011.inc
index 186c5e1b5..f9ad3f463 100644
--- a/testautomation/graphics/required/includes/global/id_011.inc
+++ b/testautomation/graphics/required/includes/global/id_011.inc
@@ -42,279 +42,271 @@ sub id_011
end sub
'-------------------------------------------------------------------------------
-testcase tiTextToolbar
+testcase tiTextToolbar
Dim iWaitIndex as integer
Dim Zufall as integer
Dim i as integer
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Call sSelectEmptyLayout
-
- '/// create a textframe with text ///'
+ printlog "create a textframe with text"
hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80)
- '/// The 'Object Toolbar' now changes ///'
+ printlog "The 'Object Toolbar' now changes"
sleep 2
- '/// select of the text with <STRG> + <A> ///'
+ printlog "select of the text with <STRG> + <A>"
EditSelectAll
sleep 2
- '/// Call the textobjectbar from the View-Toolbars-menu ///'
+ printlog "Call the textobjectbar from the View-Toolbars-menu"
Kontext "TextObjectbar"
- if TextObjectbar.Exists <> TRUE then 'isVisible
- ViewToolbarsTextFormatting
- end if
- WaitSlot (3000) 'sleep (3)
+ if TextObjectbar.Exists <> TRUE then 'isVisible
+ ViewToolbarsTextFormatting
+ end if
+ WaitSlot (3000) 'sleep (3)
Kontext "TextObjectbar"
- Printlog "- choose random font"
- randomize
- Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
- Schriftart.GetItemcount
- Schriftart.GetSelText
- Schriftart.Select (Zufall)
- '/// select any font you like in the listbox 'Font' on 'Object Toolbar' ///'
- Printlog Schriftart.GetSelText + " chosen"
-
+ Printlog "- choose random font"
+ randomize
+ Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
+ Schriftart.GetItemcount
+ Schriftart.GetSelText
+ Schriftart.Select (Zufall)
+ printlog "select any font you like in the listbox 'Font' on 'Object Toolbar'"
+ Printlog Schriftart.GetSelText + " chosen"
Kontext "TextObjectbar"
- sleep 2
- Printlog "- Change size of font"
- '/// select any font you like in the listbox 'Size' on 'Object Toolbar' ///'
- Schriftgroesse.Select (Zufall)
- Printlog Schriftgroesse.GetSelText + " chosen"
-
+ sleep 2
+ Printlog "- Change size of font"
+ printlog "select any font you like in the listbox 'Size' on 'Object Toolbar'"
+ Schriftgroesse.Select (Zufall)
+ Printlog Schriftgroesse.GetSelText + " chosen"
Kontext "TextObjectbar"
- Printlog "- Font attribute bold"
- '/// click button 'Bold' ///'
- Fett.Click
- sleep 2
-
+ Printlog "- Font attribute bold"
+ printlog "click button 'Bold'"
+ Fett.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Font attribute cursive"
- '/// click button 'Italic' ///'
- Kursiv.Click
- sleep 2
-
+ Printlog "- Font attribute cursive"
+ printlog "click button 'Italic'"
+ Kursiv.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Font attribute cursiv"
- '/// click button 'Underline' ///'
- Unterstrichen.Click
- sleep 2
-
+ Printlog "- Font attribute cursiv"
+ printlog "click button 'Underline'"
+ Unterstrichen.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- font attribute color"
- '/// click button 'Font Color' and tearoff the box ///'
- sleep 3
- FontColorGraphics.TearOff
- Kontext "TB_Farbe"
- TB_Farbe.Move 20, 20
- Sleep 2
- '/// double click in the middle of the box ///'
- TB_Farbe.MouseDoubleClick 50, 50
- Sleep 2
- '/// close box 'Font Color' ///'
- TB_Farbe.Close
+ Printlog "- font attribute color"
+ printlog "click button 'Font Color' and tearoff the box"
+ sleep 3
+ FontColorGraphics.TearOff
+ Kontext "TB_Farbe"
+ TB_Farbe.Move 20, 20
+ Sleep 2
+ printlog "double click in the middle of the box"
+ TB_Farbe.MouseDoubleClick 50, 50
+ Sleep 2
+ printlog "close box 'Font Color'"
+ TB_Farbe.Close
Kontext "TextObjectbar"
- Printlog "- Allign text left"
- '/// click button 'Left' ///'
- Linksbuendig.Click
- sleep 2
+ Printlog "- Allign text left"
+ printlog "click button 'Left'"
+ Linksbuendig.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Allign text centered"
- '/// click button 'Centered' ///'
- Zentriert.Click
- sleep 2
+ Printlog "- Allign text centered"
+ printlog "click button 'Centered'"
+ Zentriert.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- align text to right"
- '/// click button 'Right' ///'
- Rechtsbuendig.Click
- sleep 2
+ Printlog "- align text to right"
+ printlog "click button 'Right'"
+ Rechtsbuendig.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Justified"
- '/// click button 'Justified' ///'
- Blocksatz.Click
- sleep 2
+ Printlog "- Justified"
+ printlog "click button 'Justified'"
+ Blocksatz.Click
+ sleep 2
Kontext "TextObjectbar"
- if TextObjectbar.isEnabled <> TRUE then
- warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
- ViewToolbarsTextFormatting
- end if
- WaitSlot (2000) 'sleep 2
- Printlog "- Raising Font spacing"
- '/// click button 'Increase Spacing' ///'
-
+ if TextObjectbar.isEnabled <> TRUE then
+ warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
+ ViewToolbarsTextFormatting
+ end if
+ WaitSlot (2000) 'sleep 2
+ Printlog "- Raising Font spacing"
+ printlog "click button 'Increase Spacing'"
kontext "TextObjectbar"
- sleep 1
- '/// Check if the bar is there. If not - wait for maximum 10 seconds)
- iWaitIndex = 0
- do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
- warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// Activate the Font spacing-buttons ///'
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemCheck (13)
- sleep 2
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemCheck (14)
- sleep 2
- ZeilenabstandErhoehen.Click
- sleep 2
-
+ sleep 1
+ printlog "Check if the bar is there. If not - wait for maximum 10 seconds)"
+ iWaitIndex = 0
+ do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
+ warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ end if
+ printlog "Activate the Font spacing-buttons"
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemCheck (13)
+ sleep 2
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemCheck (14)
+ sleep 2
+ ZeilenabstandErhoehen.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Decrease Spacing"
- '/// click button 'Decrease Spacing' ///'
- ZeilenabstandVerringern.Click
- sleep 2
+ Printlog "- Decrease Spacing"
+ printlog "click button 'Decrease Spacing'"
+ ZeilenabstandVerringern.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Numbering and Bullets"
- sleep 2
- '/// click button 'Bullets On/Off' ///'
- BulletsOnOff.Click
- sleep 2
- '/// click button 'Bullets On/Off' ///'
- BulletsOnOff.Click
- '-----------------------------------------------------------------------
+ Printlog "- Numbering and Bullets"
+ sleep 2
+ printlog "click button 'Bullets On/Off'"
+ BulletsOnOff.Click
+ sleep 2
+ printlog "click button 'Bullets On/Off'"
+ BulletsOnOff.Click
+ '-----------------------------------------------------------------------
Kontext "TextObjectBar"
- Printlog "- Increase Font /Reduce Font"
- sleep 2
- printlog "- Click on Increase Font"
- IncreaseFont.Click
- sleep 2
- printlog "- Click on Reduce Font"
- ReduceFont.Click
- '-----------------------------------------------------------------------
+ Printlog "- Increase Font /Reduce Font"
+ sleep 2
+ printlog "- Click on Increase Font"
+ IncreaseFont.Click
+ sleep 2
+ printlog "- Click on Reduce Font"
+ ReduceFont.Click
+ '-----------------------------------------------------------------------
Kontext "TextObjectbar"
- Printlog "- Text direction from left to right"
- sleep 2
- Printlog "- click button 'Text direction from left to right'"
- try
- TextdirectionLeftToRight.Click
- printlog "hor does work :-)"
- if (gAsianSup = FALSE) then
- warnlog " this doesn't have to work if asian lang support is disabled :-)"
- end if
- catch
- if (gAsianSup = TRUE) then
- warnlog "hor does NOT work :-("
- end if
- endcatch
- Printlog "- click button 'Text direction from top to bottom"
- try
- TextdirectionTopToBottom.Click
- printlog "ver does work :-)"
- if (gAsianSup = FALSE) then
- warnlog " this doesnt have to work if asian lang support is disabled :-)"
- end if
- catch
- if (gAsianSup = TRUE) then
- warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
- end if
- endcatch
+ Printlog "- Text direction from left to right"
+ sleep 2
+ Printlog "- click button 'Text direction from left to right'"
+ try
+ TextdirectionLeftToRight.Click
+ printlog "hor does work :-)"
+ if (gAsianSup = FALSE) then
+ warnlog " this doesn't have to work if asian lang support is disabled :-)"
+ end if
+ catch
+ if (gAsianSup = TRUE) then
+ warnlog "hor does NOT work :-("
+ end if
+ endcatch
+ Printlog "- click button 'Text direction from top to bottom"
+ try
+ TextdirectionTopToBottom.Click
+ printlog "ver does work :-)"
+ if (gAsianSup = FALSE) then
+ warnlog " this doesnt have to work if asian lang support is disabled :-)"
+ end if
+ catch
+ if (gAsianSup = TRUE) then
+ warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
+ end if
+ endcatch
Printlog "- open character dialog"
Kontext "TextObjectbar"
- sleep 2
- '/// click button 'Character' ///'
- Zeichenformat.Click
- sleep 2
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- sleep 2
- if TabFont.Exists Then
- '/// close dialog 'character' ///'
- TabFont.Cancel
- Printlog "- Tabfont exists"
- else
- Warnlog "- No dialog exists "
- end if
+ sleep 2
+ printlog "click button 'Character'"
+ Zeichenformat.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ sleep 2
+ if TabFont.Exists Then
+ printlog "close dialog 'character'"
+ TabFont.Cancel
+ Printlog "- Tabfont exists"
+ else
+ Warnlog "- No dialog exists "
+ end if
Kontext "TextObjectbar"
- sleep 2
- Printlog "- call properties for paragraph using text object toolbar"
- '/// click button 'Paragraph' ///'
- Absatzformat.Click
- sleep 2
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- if TabTabulator.Exists Then
- Printlog "- TabTabulator exists"
- '/// close dialog 'Paragraph' ///'
- TabTabulator.Cancel
- else
- Warnlog "- TabTabulator does not exist"
- end if
+ sleep 2
+ Printlog "- call properties for paragraph using text object toolbar"
+ printlog "click button 'Paragraph'"
+ Absatzformat.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabTabulator
+ Kontext "TabTabulator"
+ if TabTabulator.Exists Then
+ Printlog "- TabTabulator exists"
+ printlog "close dialog 'Paragraph'"
+ TabTabulator.Cancel
+ else
+ Warnlog "- TabTabulator does not exist"
+ end if
if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only
- '/// if the Application is Impress: ///'
+ printlog "if the Application is Impress:"
Kontext "TextObjectbar"
- '/// click button 'Numbering Symbols' ///'
- OutlineBullet.Click
- kontext
- if active.exists (5) then
- messagebox.SetPage TabOptionenNumerierung
- kontext "TabOptionenNumerierung"
- '/// cancel dialog 'Numbering/Bullets' ///'
- if (TabOptionenNumerierung.exists (5) ) then
- Printlog "Numbering/Bullets window came up :-)"
- sleep 2
- TabOptionenNumerierung.cancel
- else
- warnlog "no Numbering/Bullets window came up :-("
- end if
+ printlog "click button 'Numbering Symbols'"
+ OutlineBullet.Click
+ kontext
+ if active.exists (5) then
+ messagebox.SetPage TabOptionenNumerierung
+ kontext "TabOptionenNumerierung"
+ printlog "cancel dialog 'Numbering/Bullets'"
+ if (TabOptionenNumerierung.exists (5) ) then
+ Printlog "Numbering/Bullets window came up :-)"
sleep 2
- else
- warnlog "no Numbering/Bullets window came up :-( 2"
- end if
+ TabOptionenNumerierung.cancel
+ else
+ warnlog "no Numbering/Bullets window came up :-("
+ end if
+ sleep 2
+ else
+ warnlog "no Numbering/Bullets window came up :-( 2"
+ end if
- Printlog "-change order of outline points"
- sleep 3
- '/// View->Master View->Outline View ///'
- ViewWorkspaceOutlineView
- WaitSlot (2000) 'sleep (3)
- Kontext "DocumentImpressOutlineView"
- sleep 1
- '/// type something ///'
- DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
- sleep 1
- Kontext "TextObjectbar"
- '/// click button 'Promote' ///'
- HierachieRunter.Click
- sleep 1
- Printlog "- Move back down"
- '/// click button 'Denote' ///'
- HierachieHoch.Click
- sleep 1
- '/// click button 'Denote' ///'
- HierachieHoch.Click
- sleep 1
- Printlog "- Move paragraph up"
- '/// click button 'Move Up', twice to get two slides ///'
- AbsatzHoch.Click
- sleep 1
- Printlog "- move paragraph back down and switch to drawing view"
- '/// click button 'Move Down' ///'
- AbsatzRunter.Click
- sleep 1
+ Printlog "-change order of outline points"
+ sleep 3
+ printlog "View->Master View->Outline View"
+ ViewWorkspaceOutlineView
+ WaitSlot (2000) 'sleep (3)
+ Kontext "DocumentImpressOutlineView"
+ sleep 1
+ printlog "type something"
+ DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
+ sleep 1
+ Kontext "TextObjectbar"
+ printlog "click button 'Promote'"
+ HierachieRunter.Click
+ sleep 1
+ Printlog "- Move back down"
+ printlog "click button 'Denote'"
+ HierachieHoch.Click
+ sleep 1
+ printlog "click button 'Denote'"
+ HierachieHoch.Click
+ sleep 1
+ Printlog "- Move paragraph up"
+ printlog "click button 'Move Up', twice to get two slides"
+ AbsatzHoch.Click
+ sleep 1
+ Printlog "- move paragraph back down and switch to drawing view"
+ printlog "click button 'Move Down'"
+ AbsatzRunter.Click
+ sleep 1
Kontext "Vorschau"
if Vorschau.Exists then
@@ -324,80 +316,79 @@ testcase tiTextToolbar
else ' DRAW only
Kontext "TextObjectbar"
- Printlog "- Double"
- '/// click button 'Double' ///'
- LineSpacing2.Click
- sleep 2
+ Printlog "- Double"
+ printlog "click button 'Double'"
+ LineSpacing2.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- 1.5 lines"
- '/// click button '1.5 lines' ///'
- LineSpacing15.Click
- sleep 2
+ Printlog "- 1.5 lines"
+ printlog "click button '1.5 lines'"
+ LineSpacing15.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Single"
- '/// click button 'Single' ///'
- LineSpacing1.Click
- sleep 2
+ Printlog "- Single"
+ printlog "click button 'Single'"
+ LineSpacing1.Click
+ sleep 2
end if
- '/// Check if the bar is there. If not - wait for maximum 10 seconds)
+ printlog "Check if the bar is there. If not - wait for maximum 10 seconds)"
iWaitIndex = 0
Kontext "TextObjectbar"
- do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
- warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// Reset the original value of the Font spacing-buttons ///'
- sleep 2
+ do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
+ warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ end if
+ printlog "Reset the original value of the Font spacing-buttons"
+ sleep 2
Kontext "TextObjectbar"
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (13)
- sleep 2
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (14)
- sleep 2
- '/// Close the TextFormatting Toolbar ///'
- ViewToolbarsTextFormatting
- WaitSlot (2000) 'sleep 1
- '/// Clear the document from content ///'
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (13)
+ sleep 2
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (14)
+ sleep 2
+ printlog "Close the TextFormatting Toolbar"
+ ViewToolbarsTextFormatting
+ WaitSlot (2000) 'sleep 1
+ printlog "Clear the document from content"
if (gApplication = "IMPRESS") then
Kontext "DocumentImpressOutlineView"
- DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentImpressOutlineView.TypeKeys "<DELETE>"
- sleep (3)
- ViewWorkspaceDrawingView
+ DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
+ EditSelectAll
+ DocumentImpressOutlineView.TypeKeys "<DELETE>"
+ sleep (3)
+ ViewWorkspaceDrawingView
Kontext "DocumentImpress"
- WaitSlot (2000) 'sleep 1
- DocumentImpress.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentImpress.TypeKeys "<DELETE>"
+ WaitSlot (2000) 'sleep 1
+ DocumentImpress.TypeKeys "<ESCAPE>"
+ EditSelectAll
+ DocumentImpress.TypeKeys "<DELETE>"
else
Kontext "DocumentDraw"
- DocumentDraw.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentDraw.TypeKeys "<DELETE>"
+ DocumentDraw.TypeKeys "<ESCAPE>"
+ EditSelectAll
+ DocumentDraw.TypeKeys "<DELETE>"
end if
Printlog "Test ended."
-
- '/// close application ///'
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tiTextToolbar
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
+'-------------------------------------------------------------------------------'
testcase tiDrawObjectBar
Dim a as string
@@ -405,764 +396,755 @@ testcase tiDrawObjectBar
Dim i as integer
Dim x as integer
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
-
- '/// create rectangle to test the part for draw objects ///'
+ printlog "create rectangle to test the part for draw objects"
Call hRechteckErstellen (20,20,70,70)
sleep 1
- '--------------------------- format line ------------------------
Printlog "- call format line using graphic object toolbar"
Kontext "DrawingObjectbar"
- '/// Check if the Graphic-Toolbar is there. Which it should be. ///'
- '/// If it's not - then we call it from the View-Toolbars ///'
- if DrawingObjectbar.Exists = FALSE then
- ViewToolbarsGraphic
- end if
- if DrawingObjectbar.Exists = FALSE then
- warnlog "Drawing-Objectbar should have been opened, but wasnt"
- ViewToolbarsGraphic
- end if
-
- sleep 3
- '/// click button 'line' on 'Object Toolbar' ///'
- Linie.Click
- sleep 2
- Kontext
- Active.SetPage TabLinie
- Kontext "TabLinie"
- if TabLinie.Exists Then
- '/// cancel dialog 'line' ///'
- TabLinie.Cancel
- Printlog "- TabLinie exists "
- else
- Warnlog "- TabLinie does not exist"
- end if
+ printlog "Check if the Graphic-Toolbar is there. Which it should be."
+ printlog "If it's not - then we call it from the View-Toolbars"
+ if DrawingObjectbar.Exists = FALSE then
+ ViewToolbarsGraphic
+ end if
+ if DrawingObjectbar.Exists = FALSE then
+ warnlog "Drawing-Objectbar should have been opened, but wasnt"
+ ViewToolbarsGraphic
+ end if
+ sleep 3
+ printlog "click button 'line' on 'Object Toolbar'"
+ Linie.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabLinie
+ Kontext "TabLinie"
+ if TabLinie.Exists Then
+ printlog "cancel dialog 'line'"
+ TabLinie.Cancel
+ Printlog "- TabLinie exists "
+ else
+ Warnlog "- TabLinie does not exist"
+ end if
'--------------------------- Linienendenstil --------------------
Printlog "- Style of line ends"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Arrow Style' and tearoff the box ///'
- Linienendenstil.TearOff
- sleep 2
- Kontext "Linienenden"
- if Linienenden.Exists Then
- Printlog "- dialog exists"
- '/// close toolbox 'arrowheads' ///'
- Linienenden.Close
- else
- Warnlog "- Arrowheads does not exist"
- end if
+ sleep 1
+ printlog "click button 'Arrow Style' and tearoff the box"
+ Linienendenstil.TearOff
+ sleep 2
+ Kontext "Linienenden"
+ if Linienenden.Exists Then
+ Printlog "- dialog exists"
+ printlog "close toolbox 'arrowheads'"
+ Linienenden.Close
+ else
+ Warnlog "- Arrowheads does not exist"
+ end if
'--------------------------- Linienstil -------------------------
Printlog "- choose style of lines using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// select 2nd entry from the top in listbox 'Line Style' ///'
- Linienstil.Select 2
- Printlog Linienstil.GetSelText + " chosen"
- '/// select last entry in listbox 'Line Style' ///'
- Linienstil.Select Linienstil.GetItemCount
- Printlog Linienstil.GetSelText + " chosen"
- sleep 2
+ sleep 1
+ printlog "select 2nd entry from the top in listbox 'Line Style'"
+ Linienstil.Select 2
+ Printlog Linienstil.GetSelText + " chosen"
+ printlog "select last entry in listbox 'Line Style'"
+ Linienstil.Select Linienstil.GetItemCount
+ Printlog Linienstil.GetSelText + " chosen"
+ sleep 2
'--------------------------- Linienbreite------------------------
Printlog "- check style of lines using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- a = Linienbreite.GetText
- SetClipboard a
- sleep 1
- '/// set 'Line Width' to "0,5" ///'
- Linienbreite.SetText "0,5"
- sleep 2
- '/// check if the value is accepted or not ///'
- if Linienbreite.GetText = a Then
- Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
- else
- Printlog "- Width of lines changed"
- end if
+ sleep 1
+ a = Linienbreite.GetText
+ SetClipboard a
+ sleep 1
+ printlog "set 'Line Width' to 0,5"
+ Linienbreite.SetText "0,5"
+ sleep 2
+ printlog "check if the value is accepted or not"
+ if Linienbreite.GetText = a Then
+ Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
+ else
+ Printlog "- Width of lines changed"
+ end if
'--------------------------- Linienfarbe ------------------------
Printlog "- change line color"
Kontext "DrawingObjectbar"
- sleep 1
- Zaehler = Linienfarbe.GetItemCount
- randomize
- i = Int(Zaehler*Rnd+1)
- '/// select some entry in the listbox 'Line Color' ///'
- Linienfarbe.Select i
- Printlog Linienfarbe.GetSelText + " chosen"
+ sleep 1
+ Zaehler = Linienfarbe.GetItemCount
+ randomize
+ i = Int(Zaehler*Rnd+1)
+ printlog "select some entry in the listbox 'Line Color'"
+ Linienfarbe.Select i
+ Printlog Linienfarbe.GetSelText + " chosen"
'--------------------------- Flaechenformatierung ---------------
Printlog "- Call Format area using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Area' ///'
- try
- Flaeche.Click
- catch
- printlog "clicking on area took ages :-("
- endcatch
- sleep 5
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- if TabArea.Exists Then
- Printlog "- TabArea exists "
- '/// cancel dialog 'Area' ///'
- TabArea.Cancel
- else
- Warnlog "- TabArea does not exist"
- end if
+ sleep 1
+ printlog "click button 'Area'"
+ try
+ Flaeche.Click
+ catch
+ printlog "clicking on area took ages :-("
+ endcatch
+ sleep 5
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ if TabArea.Exists Then
+ Printlog "- TabArea exists "
+ printlog "cancel dialog 'Area'"
+ TabArea.Cancel
+ else
+ Warnlog "- TabArea does not exist"
+ end if
'---
sleep 1
Kontext "DrawingObjectbar"
+ sleep 1
+ x = AreaStyle.GetItemCount
+ i = 1
+ for i = i to x
+ AreaStyle.Select i
+ Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
sleep 1
- x = AreaStyle.GetItemCount
- i = 1
- for i = i to x
- AreaStyle.Select i
- Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
- sleep 1
- '/// for every item in the listbox 'Area Style' select the last item in the listbox 'Area Filling' ///'
- if AreaStyle.GetSelIndex > 1 then
- Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
- if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
- if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
- printlog "default item is 0 => means nothing; NO BUG! 100909"
- end if
- AreaFilling.Select (AreaFilling.GetItemCount)
- Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
+ printlog "for every item in the listbox 'Area Style' select the last item in the listbox 'Area Filling'"
+ if AreaStyle.GetSelIndex > 1 then
+ Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
+ if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
+ if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
+ printlog "default item is 0 => means nothing; NO BUG! 100909"
end if
+ AreaFilling.Select (AreaFilling.GetItemCount)
+ Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
end if
- next i
+ end if
+ next i
'---------------------------- Schatten --------------------------
Printlog "- Assign shadow using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Shadow' ///'
- Schatten.Click
- sleep 1
- Printlog "- shadow assigned"
+ sleep 1
+ printlog "click button 'Shadow'"
+ Schatten.Click
+ sleep 1
+ Printlog "- shadow assigned"
'---------------------------- Praesentationsflyer ---------------
- '/// if Application is Impress: ///'
- if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only
- Printlog "- Call presentation flyer"
- Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
- '///+ if 'Presentation Box' is not visible, click button 'Presentation Box on/off' ///'
- if CommonTaskbar.Exists Then
- printlog "- flyer is already visible :-)"
- else
- printlog "- flyer wasn't visible :-( -will be now!"
- Kontext "DrawingObjectbar"
- sleep 1
- ViewToolbarsPresentation ' put it up again!
- end if
- end if
- '/// Make sure the Graphics-Toolbar is visible ///'
- if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only
+ printlog "if Application is Impress:"
+ if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only
+ Printlog "- Call presentation flyer"
+ Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
+ printlog "if 'Presentation Box' is not visible, click button 'Presentation Box on/off'"
+ if CommonTaskbar.Exists Then
+ printlog "- flyer is already visible :-)"
+ else
+ printlog "- flyer wasn't visible :-( -will be now!"
Kontext "DrawingObjectbar"
- if DrawingObjectbar.isVisible = FALSE then
- ViewToolbarsGraphic
- end if
+ sleep 1
+ ViewToolbarsPresentation ' put it up again!
end if
- '/// close application ///'
+ end if
+ printlog "Make sure the Graphics-Toolbar is visible"
+ if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only
+ Kontext "DrawingObjectbar"
+ if DrawingObjectbar.isVisible = FALSE then
+ ViewToolbarsGraphic
+ end if
+ end if
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tiDrawObjectBar
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
+'------------------------------------------------------------------------------'
testcase tiGraphicsObjectBar
dim i as integer
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// insert a graphic "global\input\graf_inp\desp.bmp" ///'
+ printlog "insert a graphic global\input\graf_inp\desp.bmp"
hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ sleep 1
+ Kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists = FALSE then
+ ViewToolbarsPicture
+ end if
+ sleep 1
+ printlog "click button 'Filter' and tearoff the box in the Objectbar"
+ Filter.TearOff
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "invert"
+ printlog "click button 'Invert' in window 'Filters'"
+ Invert.Click
+ sleep 3
+ Printlog "smooth"
+ printlog "click button 'Smooth' in window 'Filters'"
+ Smooth.Click
+ sleep 3
+ Printlog "sharpen"
+ printlog "click button 'Sharpen' in window 'Filters'"
+ Sharpen.Click
+ sleep 3
+ Printlog "remove noise"
+ printlog "click button 'RemoveNoise' in window 'Filters'"
+ Remove.Click
+ sleep 3
+ Printlog "solarization"
+ printlog "click button 'Solarization' in window 'Filters'"
+ Solarization.Click
+ sleep 3
+ Kontext "Solarization"
+ if Solarization.exists (5) then
sleep 1
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then
- ViewToolbarsPicture
- end if
- sleep 1
- '/// click button 'Filter' and tearoff the box in the Objectbar///'
- Filter.TearOff
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "invert"
- '/// click button 'Invert' in window 'Filters' ///'
- Invert.Click
- sleep 3
- Printlog "smooth"
- '/// click button 'Smooth' in window 'Filters' ///'
- Smooth.Click
- sleep 3
- Printlog "sharpen"
- '/// click button 'Sharpen' in window 'Filters' ///'
- Sharpen.Click
- sleep 3
- Printlog "remove noise"
- '/// click button 'RemoveNoise' in window 'Filters' ///'
- Remove.Click
- sleep 3
- Printlog "solarization"
- '/// click button 'Solarization' in window 'Filters' ///'
- Solarization.Click
- sleep 3
- Kontext "Solarization"
- if Solarization.exists (5) then
- sleep 1
- Call Dialogtest ( Solarization )
- sleep 1
- '/// press 'more' and 'less' in field 'Trashold Value' on dialog 'Solarization' ///'
- Value.More
- Value.Less
- '/// check checkbox 'Invert' on dialog 'Solarization' ///'
- Invert.Check
- '/// close dialog 'Solarization' with OK ///'
- Solarization.OK
- else
- warnlog "solarization didn't came up :-("
- end if
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "aging"
- '/// click button 'Aging' in window 'Filters' ///'
- Aging.Click
- Kontext "Aging"
- sleep 1
- Call Dialogtest ( Aging )
- '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Aging' ///'
- AgingDegree.More
- AgingDegree.Less
- sleep 1
- '/// close dialog 'Aging' with OK ///'
- Aging.OK
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "poster"
- '/// click button 'Posterize' in window 'Filters' ///'
- Posterize.Click
- sleep 1
- Kontext "Posterize"
- sleep 1
- Call Dialogtest ( Posterize )
- '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Posterize' ///'
- PosterColors.More
- PosterColors.Less
- sleep 1
- '/// close dialog 'Posterize' with OK ///'
- Posterize.OK
- sleep 2
- kontext "GraphicFilterBar"
- sleep 1
- Printlog "pop"
- '/// click button 'PopArt' in window 'Filters' ///'
- Art.Click
- sleep 3
- Printlog "charcoal"
- '/// click button 'CharcoalSketch' in window 'Filters' ///'
- CharcoalSketch.Click
- sleep 3
- Printlog "relief"
- '/// click button 'Relief' in window 'Filters' ///'
- Relief.Click
- Kontext "Relief"
- sleep 1
- Call Dialogtest ( Relief )
- LightSource.TypeKeys "<left><up>"
- '/// close dialog 'Relief' with OK ///'
- Relief.OK
- sleep 3
- Kontext "GraphicFilterBar"
- Printlog "mos"
- '/// click button 'Mosaic' in window 'Filters' ///'
- Mosaic.Click
- sleep 1
- Kontext "Mosaic"
- sleep 1
- Call Dialogtest ( Mosaic )
- '/// press 'more' and 'less' in field 'Width' on dialog 'Mosaic' ///'
- Width.More
- Width.Less
- '/// press 'more' and 'less' in field 'Height' on dialog 'Mosaic' ///'
- Height.More
- Height.Less
- '/// check checkbox 'Enhance Edges' on dialog 'Mosaic' ///'
- EnhanceEdges.Check
- '/// close dialog 'Mosaic' with OK ///'
- Mosaic.OK
- sleep 3
- Kontext "GraphicFilterBar"
- '/// close dialog 'Filters' ///'
- GraphicFilterBar.Close
-
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then ViewToolbarsPicture
- sleep 1
- '/// select every entry in the listbox 'Graphics mode' ///'
- for i = 1 to Grafikmodus.GetItemCount
- Grafikmodus.select i
- sleep 1
- next i
-
- '/// Click on the icon for 'ColorSettings' to open the colorbar ///'
- ColorSettings.Click
- Kontext "ColorBar"
- sleep (2)
-
- '/// press 'more' and 'less' in field 'Red' on colorbar ///'
- try
- Rotanteil.More
- Rotanteil.Less
- catch
- warnlog "not working from testtool redvalue "+ rotanteil.GetRT
- endcatch
- '/// press 'more' and 'less' in field 'Green' on colorbar ///'
- try
- Gruenanteil.More
- Gruenanteil.Less
- catch
- warnlog "not working from testtool Greenvalue."
- endcatch
- '/// press 'more' and 'less' in field 'Blue' on colorbar ///'
- try
- Blauanteil.More
- Blauanteil.Less
- catch
- warnlog "not working from testtool Bluevalue."
- endcatch
- '/// press 'more' and 'less' in field 'Brightness' on colorbar ///'
- try
- Helligkeit.More
- Helligkeit.Less
- catch
- warnlog "not working from testtool Brightness."
- endcatch
- '/// press 'more' and 'less' in field 'Contrast' on colorbar ///'
- try
- Kontrast.More
- Kontrast.Less
- catch
- warnlog "not working from testtool Contrast."
- endcatch
- '/// press 'more' and 'less' in field 'Gamma' on colorbar ///'
- try
- Gamma.More
- Gamma.Less
- catch
- warnlog "not working from testtool Gamma."
- endcatch
-
- ColorBar.Close
- Kontext "GraphicObjectbar"
-
- '/// press 'more' and 'less' in field 'Transparency' on objectbar ///'
- try
- Transparenz.More
- Transparenz.Less
- catch
- warnlog "Not working from testtool Transparency."
- endcatch
-
- '/// press button 'Crop' on objectbar ///'
- Crop.click
- '/// Opening Dialog via Slot
- FormatCropPicture
-
- kontext "TabZuschneiden"
- '/// check radiobutton 'Keep scale' on dialog 'Crop' ///'
- GroesseBeibehalten.Check
- '/// check radiobutton 'Keep Image Size' on dialog 'Crop' ///'
- MassstabBeibehalten.Check
- '/// press 'more' and 'less' in field 'Left' in section 'Crop' on dialog 'Crop' ///'
- Links.More
- Links.Less
- '/// press 'more' and 'less' in field 'Right' in section 'Crop' on dialog 'Crop' ///'
- Rechts.More
- Rechts.Less
- '/// press 'more' and 'less' in field 'Top' in section 'Crop' on dialog 'Crop' ///'
- Oben.More
- Oben.Less
- '/// press 'more' and 'less' in field 'Bottom' in section 'Crop' on dialog 'Crop' ///'
- Unten.More
- Unten.Less
- '/// press 'more' and 'less' in field 'Width' in section 'Scale' on dialog 'Crop' ///'
- MassstabBreite.More
- MassstabBreite.Less
- '/// press 'more' and 'less' in field 'Height' in section 'Scale' on dialog 'Crop' ///'
- MassstabHoehe.More
- MassstabHoehe.Less
- '/// press 'more' and 'less' in field 'Width' in section 'Image size' on dialog 'Crop' ///'
- GroesseBreite.More
- GroesseBreite.Less
- '/// press 'more' and 'less' in field 'Height' in section 'Image size' on dialog 'Crop' ///'
- GroesseHoehe.More
- GroesseHoehe.Less
- '/// click button 'Original Size' on dialog 'Crop' ///'
- Originalgroesse.Click
- '/// cancel dialog 'Crop' ///'
- TabZuschneiden.Cancel
+ Call Dialogtest ( Solarization )
+ sleep 1
+ printlog " press 'more' and 'less' in field 'Trashold Value' on dialog 'Solarization'"
+ Value.More
+ Value.Less
+ printlog "check checkbox 'Invert' on dialog 'Solarization'"
+ Invert.Check
+ printlog "close dialog 'Solarization' with OK"
+ Solarization.OK
+ else
+ warnlog "solarization didn't came up :-("
+ end if
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "aging"
+ printlog "click button 'Aging' in window 'Filters'"
+ Aging.Click
+ Kontext "Aging"
+ sleep 1
+ Call Dialogtest ( Aging )
+ printlog " press 'more' and 'less' in field 'Aging degree' on dialog 'Aging'"
+ AgingDegree.More
+ AgingDegree.Less
+ sleep 1
+ printlog "close dialog 'Aging' with OK"
+ Aging.OK
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "poster"
+ printlog "click button 'Posterize' in window 'Filters'"
+ Posterize.Click
+ sleep 1
+ Kontext "Posterize"
+ sleep 1
+ Call Dialogtest ( Posterize )
+ printlog " press 'more' and 'less' in field 'Aging degree' on dialog 'Posterize'"
+ PosterColors.More
+ PosterColors.Less
+ sleep 1
+ printlog "close dialog 'Posterize' with OK"
+ Posterize.OK
+ sleep 2
+ kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "pop"
+ printlog "click button 'PopArt' in window 'Filters'"
+ Art.Click
+ sleep 3
+ Printlog "charcoal"
+ printlog "click button 'CharcoalSketch' in window 'Filters'"
+ CharcoalSketch.Click
+ sleep 3
+ Printlog "relief"
+ printlog "click button 'Relief' in window 'Filters'"
+ Relief.Click
+ Kontext "Relief"
+ sleep 1
+ Call Dialogtest ( Relief )
+ LightSource.TypeKeys "<left><up>"
+ printlog "close dialog 'Relief' with OK"
+ Relief.OK
+ sleep 3
+ Kontext "GraphicFilterBar"
+ Printlog "mos"
+ printlog "click button 'Mosaic' in window 'Filters'"
+ Mosaic.Click
+ sleep 1
+ Kontext "Mosaic"
+ sleep 1
+ Call Dialogtest ( Mosaic )
+ printlog " press 'more' and 'less' in field 'Width' on dialog 'Mosaic'"
+ Width.More
+ Width.Less
+ printlog " press 'more' and 'less' in field 'Height' on dialog 'Mosaic'"
+ Height.More
+ Height.Less
+ printlog " check checkbox 'Enhance Edges' on dialog 'Mosaic'"
+ EnhanceEdges.Check
+ printlog "close dialog 'Mosaic' with OK"
+ Mosaic.OK
+ sleep 3
+ Kontext "GraphicFilterBar"
+ printlog "close dialog 'Filters'"
+ GraphicFilterBar.Close
+
+ Kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists = FALSE then ViewToolbarsPicture
+ sleep 1
+ printlog "select every entry in the listbox 'Graphics mode'"
+ for i = 1 to Grafikmodus.GetItemCount
+ Grafikmodus.select i
+ sleep 1
+ next i
- '/// close application ///'
+ printlog " Click on the icon for 'ColorSettings' to open the colorbar"
+ ColorSettings.Click
+ Kontext "ColorBar"
+ sleep (2)
+ printlog " press 'more' and 'less' in field 'Red' on colorbar"
+ try
+ Rotanteil.More
+ Rotanteil.Less
+ catch
+ warnlog "not working from testtool redvalue "+ rotanteil.GetRT
+ endcatch
+ printlog " press 'more' and 'less' in field 'Green' on colorbar"
+ try
+ Gruenanteil.More
+ Gruenanteil.Less
+ catch
+ warnlog "not working from testtool Greenvalue."
+ endcatch
+ printlog " press 'more' and 'less' in field 'Blue' on colorbar"
+ try
+ Blauanteil.More
+ Blauanteil.Less
+ catch
+ warnlog "not working from testtool Bluevalue."
+ endcatch
+ printlog " press 'more' and 'less' in field 'Brightness' on colorbar"
+ try
+ Helligkeit.More
+ Helligkeit.Less
+ catch
+ warnlog "not working from testtool Brightness."
+ endcatch
+ printlog " press 'more' and 'less' in field 'Contrast' on colorbar"
+ try
+ Kontrast.More
+ Kontrast.Less
+ catch
+ warnlog "not working from testtool Contrast."
+ endcatch
+ printlog " press 'more' and 'less' in field 'Gamma' on colorbar"
+ try
+ Gamma.More
+ Gamma.Less
+ catch
+ warnlog "not working from testtool Gamma."
+ endcatch
+
+ ColorBar.Close
+ Kontext "GraphicObjectbar"
+
+ printlog " press 'more' and 'less' in field 'Transparency' on objectbar"
+ try
+ Transparenz.More
+ Transparenz.Less
+ catch
+ warnlog "Not working from testtool Transparency."
+ endcatch
+
+ printlog "press button 'Crop' on objectbar"
+ Crop.click
+ printlog "Opening Dialog via Slot"
+ FormatCropPicture
+
+ kontext "TabZuschneiden"
+ printlog " check radiobutton 'Keep scale' on dialog 'Crop'"
+ GroesseBeibehalten.Check
+ printlog " check radiobutton 'Keep Image Size' on dialog 'Crop'"
+ MassstabBeibehalten.Check
+ printlog " press 'more' and 'less' in field 'Left' in section 'Crop' on dialog 'Crop'"
+ Links.More
+ Links.Less
+ printlog " press 'more' and 'less' in field 'Right' in section 'Crop' on dialog 'Crop'"
+ Rechts.More
+ Rechts.Less
+ printlog " press 'more' and 'less' in field 'Top' in section 'Crop' on dialog 'Crop'"
+ Oben.More
+ Oben.Less
+ printlog " press 'more' and 'less' in field 'Bottom' in section 'Crop' on dialog 'Crop'"
+ Unten.More
+ Unten.Less
+ printlog " press 'more' and 'less' in field 'Width' in section 'Scale' on dialog 'Crop'"
+ MassstabBreite.More
+ MassstabBreite.Less
+ printlog " press 'more' and 'less' in field 'Height' in section 'Scale' on dialog 'Crop'"
+ MassstabHoehe.More
+ MassstabHoehe.Less
+ printlog " press 'more' and 'less' in field 'Width' in section 'Image size' on dialog 'Crop'"
+ GroesseBreite.More
+ GroesseBreite.Less
+ printlog " press 'more' and 'less' in field 'Height' in section 'Image size' on dialog 'Crop'"
+ GroesseHoehe.More
+ GroesseHoehe.Less
+ printlog " click button 'Original Size' on dialog 'Crop'"
+ Originalgroesse.Click
+ printlog "cancel dialog 'Crop'"
+ TabZuschneiden.Cancel
+
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tiGraphicsObjectBar
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
+'-------------------------------------------------------------------------------'
testcase tiGluepointToolbar
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
- '/// create 2 rectangles ///'
+ printlog "create 2 rectangles"
Call hRechteckErstellen 20,20,40,40
Call hRechteckErstellen 60,60,80,80
sleep 2
- '/// View->Toolbars->Option Bar ///'
+ printlog "View->Toolbars->Option Bar"
ViewToolbarsOptionbar
- '/// at the bottom of the office has a toolbar to appear ///'
+ printlog "at the bottom of the office has a toolbar to appear"
sleep 2
Kontext "Optionsbar"
+ if Optionsbar.Exists = False Then
+ ViewToolbarsOptionbar
+ Kontext "Optionsbar"
if Optionsbar.Exists = False Then
- ViewToolbarsOptionbar
- Kontext "Optionsbar"
- if Optionsbar.Exists = False Then
- warnlog "Can't open Optionsbar."
- end if
+ warnlog "Can't open Optionsbar."
end if
+ end if
+ sleep 2
+ Kontext "Toolbar"
+ sleep 1
+ printlog "click button 'Connector' on Toolbar"
+ Verbinder.Click
+ printlog "make a line with the mouse"
+ gMouseMove 30,30,70,70
+ sleep 3
+ Kontext "Toolbar"
+ GluePoints.Click
+ sleep 1
+ printlog "open Glue Points Toolbar"
+ Kontext "Gluepointsobjectbar"
+ if Gluepointsobjectbar.Exists = False Then
+ ViewToolbarsGluepoints
+ end if
+ sleep 3
+ '-------------------------------------- Klebepunkt einfuegen ----
+ try
+ printlog "click button 'Insert Glue Point' on Objecttoolbar"
+ PunkteEinfuegen.Click
sleep 2
- Kontext "Toolbar"
- sleep 1
- '/// click button 'Connector' on Toolbar ///'
- Verbinder.Click
- '/// make a line with the mouse ///'
- gMouseMove 30,30,70,70
- sleep 3
- Kontext "Toolbar"
- GluePoints.Click
- sleep 1
- '/// open Glue Points Toolbar ///'
- Kontext "Gluepointsobjectbar"
- if Gluepointsobjectbar.Exists = False Then
- ViewToolbarsGluepoints
- end if
- sleep 3
- '-------------------------------------- Klebepunkt einfuegen ----
- try
- '/// click button 'Insert Glue Point' on Objecttoolbar ///'
- PunkteEinfuegen.Click
- sleep 2
- '/// click 2 times onto the created line ///'
- gMouseClick 25,30
- sleep 1
- gMouseclick 25,30
- Printlog "- insert gluepoint works"
- catch
- Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
- endcatch
- sleep 3
- Kontext "Gluepointsobjectbar"
-
- '-------------------------------------- Links -------------------
- try
- '/// click button 'Exit Direction Left' on Objecttoolbar ///'
- Links.Click
- Printlog "- gluepoint left works"
- catch
- Warnlog "- gluepoint left does not work"
- endcatch
- sleep 1
- '-------------------------------------- Rechts ------------------
- try
- '/// click button 'Exit Direction Right' on Objecttoolbar ///'
- Rechts.Click
- Printlog "- gluepoint right works"
- catch
- Warnlog "- gluepoint right does not work"
- endcatch
- sleep 1
- '-------------------------------------- Oben --------------------
- try
- '/// click button 'Exit Direction Top' on Objecttoolbar ///'
- Oben.Click
- Printlog "- gluepoint top works"
- catch
- Warnlog "- gluepoint top does not work"
- endcatch
- sleep 1
- '-------------------------------------- Unten -------------------
- try
- '/// click button 'Exit Direction Bottom' on Objecttoolbar ///'
- Unten.Click
- Printlog "- gluepoint bottom works"
- catch
- Warnlog "- gluepoint bottom does not work"
- endcatch
- sleep 1
- '---------------------- Position an Objekt anpassen -------------
- try
- '/// click button 'Glue Point Relative' on Objecttoolbar ///'
- PositionAnObjektAnpassen.Click
- Printlog "- align position to object works"
- gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[
- catch
- Warnlog "- align position to object does not work"
- endcatch
- Kontext "Gluepointsobjectbar"
- sleep 1
- '------------------------------------- Horizontal links ---------
- if PositionAnObjektAnpassen.exists then printlog "PositionAnObjektAnpassen = Exists"
- if PositionAnObjektAnpassen.GetState(2) <> 0 then PositionAnObjektAnpassen.Click ' make unpressed!
- '0 = not pressed. 1 = pressed.
- sleep 2
- try
- Kontext "Gluepointsobjectbar"
- '/// click button 'Glue Point Horizontal Left' on Objecttoolbar ///'
- HorizontalLinks.Click
- Printlog "- align horizontal left works"
- catch
- Warnlog "- align horizontal left does not work"
- PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
- for i = 1 to Gluepointsobjectbar.GetItemCount
- if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
- printlog "----------------------------------------------------------------------"
- printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i
- printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
- printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 )
- printlog "----------------------------------------------------------------------"
- end if
- next i
- endcatch
- sleep 2
- '------------------------------------- Horizontal rechts --------
- try
- '/// click button 'Glue Point Horizontal Right' on Objecttoolbar ///'
- HorizontalRechts.Click
- Printlog "- Align horizontal right does work"
- catch
- Warnlog "- Align horizontal right does notwork"
- endcatch
- sleep 1
- '------------------------------------- Horizontal zentriert -----
- try
- '/// click button 'Glue Point Horizontal Center' on Objecttoolbar ///'
- HorizontalZentriert.Click
- Printlog "- align horizontal center does work"
- catch
- Warnlog "- align horizontal center does work"
- endcatch
- sleep 1
- '------------------------------------- Vertikal oben ------------
- try
- '/// click button 'Glue Point Vertical Top' on Objecttoolbar ///'
- VertikalOben.Click
- sleep 1
- Printlog "- Align vertical top does work"
- catch
- Warnlog "- Align vertical top does not work"
- endcatch
- '------------------------------------- Vertikal unten -----------
- try
- '/// click button 'Glue Point Vertical Bottom' on Objecttoolbar ///'
- VertikalUnten.Click
- sleep 1
- printlog "- Align vertical bottom does work"
- catch
- Warnlog "- Align vertical bottom does not work"
- endcatch
- '------------------------------------- Vertikal zentriert -------
- try
- '/// click button 'Glue Point Vertical Center' on Objecttoolbar ///'
- VertikalZentriert.Click
- sleep 1
- Printlog "- Align vertical center does work"
- catch
- Warnlog "- Align vertical center does not work"
- endcatch
-
- Printlog "- End of testing gluepoints"
-
- '/// Close the Option Bar via View->Toolbars->Option Bar ///'
+ printlog "click 2 times onto the created line"
+ gMouseClick 25,30
+ sleep 1
+ gMouseclick 25,30
+ Printlog "- insert gluepoint works"
+ catch
+ Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
+ endcatch
+ sleep 3
+ Kontext "Gluepointsobjectbar"
+
+ '-------------------------------------- Links -------------------
+ try
+ printlog "click button 'Exit Direction Left' on Objecttoolbar"
+ Links.Click
+ Printlog "- gluepoint left works"
+ catch
+ Warnlog "- gluepoint left does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Rechts ------------------
+ try
+ printlog "click button 'Exit Direction Right' on Objecttoolbar"
+ Rechts.Click
+ Printlog "- gluepoint right works"
+ catch
+ Warnlog "- gluepoint right does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Oben --------------------
+ try
+ printlog "click button 'Exit Direction Top' on Objecttoolbar"
+ Oben.Click
+ Printlog "- gluepoint top works"
+ catch
+ Warnlog "- gluepoint top does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Unten -------------------
+ try
+ printlog "click button 'Exit Direction Bottom' on Objecttoolbar"
+ Unten.Click
+ Printlog "- gluepoint bottom works"
+ catch
+ Warnlog "- gluepoint bottom does not work"
+ endcatch
+ sleep 1
+ '---------------------- Position an Objekt anpassen -------------
+ try
+ printlog "click button 'Glue Point Relative' on Objecttoolbar"
+ PositionAnObjektAnpassen.Click
+ Printlog "- align position to object works"
+ gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[
+ catch
+ Warnlog "- align position to object does not work"
+ endcatch
+ Kontext "Gluepointsobjectbar"
+ sleep 1
+ '------------------------------------- Horizontal links ---------
+ if PositionAnObjektAnpassen.exists then printlog "PositionAnObjektAnpassen = Exists"
+ if PositionAnObjektAnpassen.GetState(2) <> 0 then PositionAnObjektAnpassen.Click ' make unpressed!
+ '0 = not pressed. 1 = pressed.
+ sleep 2
+ try
+ Kontext "Gluepointsobjectbar"
+ printlog "click button 'Glue Point Horizontal Left' on Objecttoolbar"
+ HorizontalLinks.Click
+ Printlog "- align horizontal left works"
+ catch
+ Warnlog "- align horizontal left does not work"
+ PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
+ for i = 1 to Gluepointsobjectbar.GetItemCount
+ if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
+ printlog "----------------------------------------------------------------------"
+ printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i
+ printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
+ printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 )
+ printlog "----------------------------------------------------------------------"
+ end if
+ next i
+ endcatch
+ sleep 2
+ '------------------------------------- Horizontal rechts --------
+ try
+ printlog "click button 'Glue Point Horizontal Right' on Objecttoolbar"
+ HorizontalRechts.Click
+ Printlog "- Align horizontal right does work"
+ catch
+ Warnlog "- Align horizontal right does notwork"
+ endcatch
+ sleep 1
+ '------------------------------------- Horizontal zentriert -----
+ try
+ printlog "click button 'Glue Point Horizontal Center' on Objecttoolbar"
+ HorizontalZentriert.Click
+ Printlog "- align horizontal center does work"
+ catch
+ Warnlog "- align horizontal center does work"
+ endcatch
+ sleep 1
+ '------------------------------------- Vertikal oben ------------
+ try
+ printlog "click button 'Glue Point Vertical Top' on Objecttoolbar"
+ VertikalOben.Click
+ sleep 1
+ Printlog "- Align vertical top does work"
+ catch
+ Warnlog "- Align vertical top does not work"
+ endcatch
+ '------------------------------------- Vertikal unten -----------
+ try
+ printlog "click button 'Glue Point Vertical Bottom' on Objecttoolbar"
+ VertikalUnten.Click
+ sleep 1
+ printlog "- Align vertical bottom does work"
+ catch
+ Warnlog "- Align vertical bottom does not work"
+ endcatch
+ '------------------------------------- Vertikal zentriert -------
+ try
+ printlog "click button 'Glue Point Vertical Center' on Objecttoolbar"
+ VertikalZentriert.Click
+ sleep 1
+ Printlog "- Align vertical center does work"
+ catch
+ Warnlog "- Align vertical center does not work"
+ endcatch
+ Printlog "- End of testing gluepoints"
+ printlog "Close the Option Bar via View->Toolbars->Option Bar"
ViewToolbarsOptionbar
sleep 2
Kontext "Optionsbar"
- if Optionsbar.Exists = True Then
- warnlog "Couldnt close Optionsbar."
- end if
- '/// close application ///'
+ if Optionsbar.Exists = True Then
+ warnlog "Couldnt close Optionsbar."
+ end if
+ printlog "close application"
Call hCloseDocument
-endcase
+endcase 'tiGluepointToolbar
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
+'----------------------------------------------------------------------------'
testcase tdBezierToolbar
- '/// Open the Application ///'
+ printlog "Open the Application"
Call hNewDocument
-
- '/// Create a rectangle. ///'
+ printlog "Create a rectangle."
Call hRechteckErstellen ( 10, 10, 30, 40 )
sleep (1)
-
- '/// Convert the recttangle to an 'Polygon-object' via the context-menu for the object ///'
+ printlog "Convert the recttangle to an 'Polygon-object' via the context-menu for the object"
Call hOpenContextMenu
- Call hMenuSelectNr (11) '/// Convert to ///'
- Call hMenuSelectNr (2) '/// Polygon-object ///'
+ printlog "Convert to"
+ Call hMenuSelectNr (11)
+ printlog "Polygon-object"
+ Call hMenuSelectNr (2)
sleep (1)
-
- '/// In the context-menu, select 'Edit Points" ///'
+ printlog "In the context-menu, select 'Edit Points"
Call hOpenContextMenu
- Call hMenuSelectNr (5) '/// Select entry nr 5 (Edit Points) ///'
+ printlog "Select entry nr 5 (Edit Points)"
+ Call hMenuSelectNr (5)
sleep (2)
-
Kontext "Bezierobjectbar"
+ if Bezierobjectbar.Exists <> TRUE then
+ ViewToolbarsBezier
+ Sleep (2)
if Bezierobjectbar.Exists <> TRUE then
- ViewToolbarsBezier
- Sleep (2)
- if Bezierobjectbar.Exists <> TRUE then
- warnlog "Bezierobjectbar did not show up. Check why."
- end if
+ warnlog "Bezierobjectbar did not show up. Check why."
end if
+ end if
'----------------------------------- Punkte verschieben ------------------------------------
- '/// Select a part of the object with the keyboard ///'
- hTypeKeys "<MOD1 TAB>", 4 '/// Selects the fourth vector. ///'
- hTypeKeys "<RIGHT>", 40 '/// Moves the selected vector 40 steps. ///'
+ printlog "Select a part of the object with the keyboard"
+ printlog "Selects the fourth vector."
+ hTypeKeys "<MOD1 TAB>", 4
+ printlog "Moves the selected vector 40 steps."
+ hTypeKeys "<RIGHT>", 40
- '/// The 'Object Toolbar' now changes ///'
+ printlog "The 'Object Toolbar' now changes"
Kontext "Bezierobjectbar"
- if Bezierobjectbar.Exists <> TRUE then
- ViewToolbarsBezier
- Sleep 2
- end if
- if Bezierobjectbar.Exists <> TRUE then
- Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
- ViewToolbarsBezier
- Sleep 2
- end if
+ if Bezierobjectbar.Exists <> TRUE then
+ ViewToolbarsBezier
+ Sleep 2
+ end if
+ if Bezierobjectbar.Exists <> TRUE then
+ Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
+ ViewToolbarsBezier
+ Sleep 2
+ end if
Kontext "Bezierobjectbar"
- sleep 1
- Printlog "- Move points"
- '/// click button 'Move points' on 'Object Toolbar' ///'
- Verschieben.Click
- sleep 2
-
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 SHIFT SPACE>" '/// Marks the selected vector. ///'
- hTypeKeys "<RIGHT>", 20 '/// Moves the vector 20 with "arrow right", twenty times. ///'
-
- Printlog "- Insert points"
- '/// Click button 'Insert points' on 'Object Toolbar' ///'
+ sleep 1
+ Printlog "- Move points"
+ printlog "click button 'Move points' on 'Object Toolbar'"
+ Verschieben.Click
+ sleep 2
+ hTypeKeys "<MOD1 TAB>"
+ printlog "Marks the selected vector."
+ hTypeKeys "<MOD1 SHIFT SPACE>"
+ printlog "Moves the vector 20 with arrow right, twenty times."
+ hTypeKeys "<RIGHT>", 20
+
+ Printlog "- Insert points"
+ printlog "Click button 'Insert points' on 'Object Toolbar'"
Kontext "Bezierobjectbar"
- Einfuegen.Click
- sleep 2
- Bezierobjectbar.Move 20, 20
- sleep (1)
- Printlog "- Delete points"
-
- '/// Select another part of the object with spanning a selection with the mouse ///'
- gMouseMove 25,25,45,45
-
- hTypeKeys "<MOD1 TAB>", 2 '/// Select the second next vector. ///'
- hTypeKeys "<MOD1 SHIFT SPACE>" '/// Mark the selected vector. ///'
- hTypeKeys "<MOD1 TAB><SHIFT SPACE>" '/// Select and mark the next vector. ///'
+ Einfuegen.Click
+ sleep 2
+ Bezierobjectbar.Move 20, 20
+ sleep (1)
+ Printlog "- Delete points"
+ printlog "Select another part of the object with spanning a selection with the mouse"
+ gMouseMove 25,25,45,45
+ printlog "Select the second next vector."
+ hTypeKeys "<MOD1 TAB>", 2
+ printlog "Mark the selected vector."
+ hTypeKeys "<MOD1 SHIFT SPACE>"
+ printlog "Select and mark the next vector."
+ hTypeKeys "<MOD1 TAB><SHIFT SPACE>"
- sleep 2
+ sleep 2
Kontext "Bezierobjectbar"
- sleep 2
- Printlog "- Convert into curve"
- '/// click button 'convert to curve' on 'Object Toolbar' ///'
- InKurve.Click
- sleep 2
- Printlog "- Place edge point"
- '/// click button 'corner point' on 'Object Toolbar' ///'
- Ecke.Click
- sleep 2
- Printlog "- Smooth transition"
- '/// click button 'smooth transition' on 'Object Toolbar' ///'
- Glatt.Click
- sleep 2
- Printlog "- Symetric transition"
- '/// click button 'symmetric transition' on 'Object Toolbar' ///'
- Symmetrisch.Click
- sleep 2
-
- '/// Click button 'Eliminate points' on 'Object Toolbar' ///'
+ sleep 2
+ Printlog "- Convert into curve"
+ printlog "click button 'convert to curve' on 'Object Toolbar'"
+ InKurve.Click
+ sleep 2
+ Printlog "- Place edge point"
+ printlog "click button 'corner point' on 'Object Toolbar'"
+ Ecke.Click
+ sleep 2
+ Printlog "- Smooth transition"
+ printlog "click button 'smooth transition' on 'Object Toolbar'"
+ Glatt.Click
+ sleep 2
+ Printlog "- Symetric transition"
+ printlog "click button 'symmetric transition' on 'Object Toolbar'"
+ Symmetrisch.Click
+ sleep 2
+
+ printlog "Click button 'Eliminate points' on 'Object Toolbar'"
Kontext "Bezierobjectbar"
- PunkteReduzieren.Click
- sleep 2
-
- '/// Mark another point ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 SHIFT SPACE>"
+ PunkteReduzieren.Click
+ sleep 2
- '/// click button 'split curve' on 'Object Toolbar' ///'
+ printlog "Mark another point"
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 SHIFT SPACE>"
+
+ printlog "click button 'split curve' on 'Object Toolbar'"
Kontext "Bezierobjectbar"
- try
- Auftrennen.Click
- catch
- Warnlog "- 'Break' could not be executed"
- endcatch
- sleep 2
+ try
+ Auftrennen.Click
+ catch
+ Warnlog "- 'Break' could not be executed"
+ endcatch
+ sleep 2
- '/// Mark all points ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 A>"
+ printlog "Mark all points"
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 A>"
- Printlog "- Close bezier"
+ Printlog "- Close bezier"
Kontext "Bezierobjectbar"
+ try
+ printlog "click button 'close bezier' on 'Object Toolbar'"
+ Schliessen.Click
+ catch
+ InKurve.Click
+ sleep 2
try
- '/// click button 'close bezier' on 'Object Toolbar' ///'
Schliessen.Click
catch
- InKurve.Click
- sleep 2
- try
- Schliessen.Click
- catch
- warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
- endcatch
+ warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
endcatch
- sleep 2
+ endcatch
+ sleep 2
- '/// Mark all points ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 A>"
+ printlog "Mark all points"
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 A>"
- '/// Click button 'Delete points' on 'Object Toolbar' ///'
+ printlog "Click button 'Delete points' on 'Object Toolbar'"
Kontext "Bezierobjectbar"
- Printlog "- Break curve"
- if ( hClickButton( Loeschen ) = -1 ) then
- warnlog( "Unable to click button <Loeschen>" )
- endif
- 'try
- ' Loeschen.Click
- ' sleep 2
- 'catch
- ' warnlog "Delete didn't work... why?"
- 'endcatch
+ Printlog "- Break curve"
+ if ( hClickButton( Loeschen ) = -1 ) then
+ warnlog( "Unable to click button <Loeschen>" )
+ endif
- '/// Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar' ///'
+ printlog "Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar'"
Kontext "Toolbar"
- sleep 2
- Toolbar.OpenContextMenu ' Enable forms button in menuebar
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (7)
- sleep 2
- '/// Close application ///'
+ sleep 2
+ Toolbar.OpenContextMenu ' Enable forms button in menuebar
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (7)
+ sleep 2
+ printlog "Close application"
Call hCloseDocument
-endcase
+endcase 'tdBezierToolbar
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
+'------------------------------------------------------------------------------ \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_opt_1.inc b/testautomation/graphics/required/includes/global/id_opt_1.inc
index 7ca61a877..dcb6c3879 100644
--- a/testautomation/graphics/required/includes/global/id_opt_1.inc
+++ b/testautomation/graphics/required/includes/global/id_opt_1.inc
@@ -32,162 +32,164 @@
'\******************************************************************************
testcase tToolsOptionsDrawGeneral (sApplication as string)
- dim irgendwas(9) as boolean
- dim iMasseinheit as integer
- dim sTabAbstand as string
- dim iZeichnungsmasstab as integer
- dim sTemp as string
- dim iTemp as integer
- dim sTemp2 as string
- dim iTemp2 as integer
- dim sMeasUnit as string
-
- hNewDocument
-
- printlog "save states"
- ToolsOptions
- hToolsOptions (sApplication,"General")
-
- irgendwas(1) = Schnellbearbeitung.IsChecked
- irgendwas(2) = TextbereichSelektierbar.IsChecked
-
- irgendwas(3) = CacheFuerHintergrund.IsChecked
- irgendwas(4) = KopieBeimVerschieben.IsChecked
- irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked
-
- if (gApplication = "DRAW") then
- irgendwas(6) = SetzenAufKreis.IsChecked ' DRAW
- iZeichnungsmasstab = Zeichnungsmasstab.GetSelIndex ' DRAW
- else ' IMPRESS
- irgendwas(7) = MitAutopilotStarten.IsChecked
- irgendwas(8) = MitAktuellerSeite.IsChecked
- irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked
- endif
-
- iMasseinheit = Masseinheit.GetSelIndex
- sTabAbstand = Tabulatorabstand.GetText
-
- printlog "all states inverting"
+ dim irgendwas(9) as boolean
+ dim iMasseinheit as integer
+ dim sTabAbstand as string
+ dim iZeichnungsmasstab as integer
+ dim sTemp as string
+ dim iTemp as integer
+ dim sTemp2 as string
+ dim iTemp2 as integer
+ dim sMeasUnit as string
- if irgendwas(1) Then Schnellbearbeitung.UnCheck Else Schnellbearbeitung.Check
- if irgendwas(2) Then TextbereichSelektierbar.UnCheck Else TextbereichSelektierbar.Check
-
- if irgendwas(3) Then CacheFuerHintergrund.UnCheck Else CacheFuerHintergrund.Check
- if irgendwas(4) Then KopieBeimVerschieben.UnCheck Else KopieBeimVerschieben.Check
- if irgendwas(5) Then ObjekteImmerVerschiebbar.UnCheck Else ObjekteImmerVerschiebbar.Check
-
- Tabulatorabstand.ToMax
- sTemp = Tabulatorabstand.GetText
- Tabulatorabstand.More
+ hNewDocument
- if (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE) Then Warnlog "Something wrong, please check!"
- Tabulatorabstand.SetText (sTabAbstand)
+ printlog "save states"
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
- if (gApplication = "DRAW") then
- If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _
- Else Zeichnungsmasstab.Select (1)
- iTemp2 = Zeichnungsmasstab.GetSelIndex
- if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check
- else ' IMPRESS
- if irgendwas(7) Then MitAutopilotStarten.UnCheck Else MitAutopilotStarten.Check
- if irgendwas(8) Then MitAktuellerSeite.UnCheck Else MitAktuellerSeite.Check
- if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else AlleAbsatzabstaendeAddieren.Check
- endif
+ irgendwas(1) = Schnellbearbeitung.IsChecked
+ irgendwas(2) = TextbereichSelektierbar.IsChecked
- printlog "<Meas.Unit> interacts with <Tap stops> and vice versa"
+ irgendwas(3) = CacheFuerHintergrund.IsChecked
+ irgendwas(4) = KopieBeimVerschieben.IsChecked
+ irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked
- If ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _
- Else Masseinheit.Select (1)
- iTemp = Masseinheit.GetSelIndex
+ if (gApplication = "DRAW") then
+ irgendwas(6) = SetzenAufKreis.IsChecked ' DRAW
+ iZeichnungsmasstab = Zeichnungsmasstab.GetSelIndex ' DRAW
+ else ' IMPRESS
+ irgendwas(7) = MitAutopilotStarten.IsChecked
+ irgendwas(8) = MitAktuellerSeite.IsChecked
+ irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked
+ endif
- sTemp = Tabulatorabstand.GetText
- Tabulatorabstand.ToMax
- If ( Tabulatorabstand.GetText = sTemp ) Then Tabulatorabstand.ToMin
- sTemp = Tabulatorabstand.GetText
+ iMasseinheit = Masseinheit.GetSelIndex
+ sTabAbstand = Tabulatorabstand.GetText
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ printlog "all states inverting"
- printlog "Office quit - start"
+ if irgendwas(1) Then Schnellbearbeitung.UnCheck Else Schnellbearbeitung.Check
+ if irgendwas(2) Then TextbereichSelektierbar.UnCheck Else TextbereichSelektierbar.Check
- ExitRestartTheOffice
- printlog "opening new doc to get the Options"
- Call hNewDocument
- printlog "checking states"
- ToolsOptions
- hToolsOptions (sApplication,"General")
+ if irgendwas(3) Then CacheFuerHintergrund.UnCheck Else CacheFuerHintergrund.Check
+ if irgendwas(4) Then KopieBeimVerschieben.UnCheck Else KopieBeimVerschieben.Check
+ if irgendwas(5) Then ObjekteImmerVerschiebbar.UnCheck Else ObjekteImmerVerschiebbar.Check
- If ( irgendwas(1) = Schnellbearbeitung.IsChecked ) Then WarnLog "Allow Quick Editing state changed"
- If ( irgendwas(2) = TextbereichSelektierbar.IsChecked ) Then WarnLog "Only Text Area Selectable state changed"
+ Tabulatorabstand.ToMax
+ sTemp = Tabulatorabstand.GetText
+ Tabulatorabstand.More
- If ( irgendwas(3) = CacheFuerHintergrund.IsChecked ) Then WarnLog "Use Background Cache state changed"
- If ( irgendwas(4) = KopieBeimVerschieben.IsChecked ) Then WarnLog "Copy When Moving state changed"
- If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked ) Then WarnLog "Objects Always Movable state changed"
+ if (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE) Then Warnlog "Something wrong, please check!"
+ Tabulatorabstand.SetText (sTabAbstand)
- if (gApplication = "DRAW") then
+ if (gApplication = "DRAW") then
+ If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then
+ Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _
+ Else Zeichnungsmasstab.Select (1)
+ iTemp2 = Zeichnungsmasstab.GetSelIndex
+ if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check
+ endif
+ else ' IMPRESS
+ if irgendwas(7) Then MitAutopilotStarten.UnCheck Else MitAutopilotStarten.Check
+ if irgendwas(8) Then MitAktuellerSeite.UnCheck Else MitAktuellerSeite.Check
+ if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else AlleAbsatzabstaendeAddieren.Check
+ endif
+
+ printlog "<Meas.Unit> interacts with <Tap stops> and vice versa"
+
+ If ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _
+ Else Masseinheit.Select (1)
+ iTemp = Masseinheit.GetSelIndex
+
+ sTemp = Tabulatorabstand.GetText
+ Tabulatorabstand.ToMax
+ If ( Tabulatorabstand.GetText = sTemp ) Then Tabulatorabstand.ToMin
+ sTemp = Tabulatorabstand.GetText
+
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+
+ printlog "Office quit - start"
+
+ ExitRestartTheOffice
+ printlog "opening new doc to get the Options"
+ Call hNewDocument
+ printlog "checking states"
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
+
+ If ( irgendwas(1) = Schnellbearbeitung.IsChecked ) Then WarnLog "Allow Quick Editing state changed"
+ If ( irgendwas(2) = TextbereichSelektierbar.IsChecked ) Then WarnLog "Only Text Area Selectable state changed"
+
+ If ( irgendwas(3) = CacheFuerHintergrund.IsChecked ) Then WarnLog "Use Background Cache state changed"
+ If ( irgendwas(4) = KopieBeimVerschieben.IsChecked ) Then WarnLog "Copy When Moving state changed"
+ If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked ) Then WarnLog "Objects Always Movable state changed"
+
+ if (gApplication = "DRAW") then
If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale state changed BUG #97391 is:"+Zeichnungsmasstab.GetSelIndex+"; should: "+iTemp2
If ( irgendwas(6) = SetzenAufKreis.IsChecked ) Then WarnLog "'Do not disort objects in curve' state changed"
- else ' IMPRESS
+ else ' IMPRESS
if ( irgendwas(7) = MitAutopilotStarten.IsChecked ) Then WarnLog "'Start with AutoPilot' state changed."
-'
+ '
if ( irgendwas(8) = MitAktuellerSeite.IsChecked ) Then WarnLog "'Always with current page' changed"
if ( irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked ) Then WarnLog "'Add spacing between paragraphs in the current document' changed"
- endif
-
- If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Unit of Measurement state changed"
- If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops state changed - watch BugID: 82744 for Status"
-
- printlog "all UnCheck -> o"
-
- Schnellbearbeitung.UnCheck
- TextbereichSelektierbar.UnCheck
-
- CacheFuerHintergrund.UnCheck
- KopieBeimVerschieben.UnCheck
- ObjekteImmerVerschiebbar.UnCheck
-
- if (gApplication = "DRAW") then
- Zeichnungsmasstab.Select (1)
- SetzenAufKreis.UnCheck
- else ' IMPRESS
- MitAutopilotStarten.UnCheck
- MitAktuellerSeite.UnCheck
- AlleAbsatzabstaendeAddieren.UnCheck
- endif
-
- Masseinheit.Select (1)
- Tabulatorabstand.ToMin
- sTemp = Tabulatorabstand.GetText
- printlog " More test "
- Tabulatorabstand.More
- if ( sTemp = Tabulatorabstand.GetText ) Then WarnLog "Tab Stops More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorabstand.GetText
- sTemp = Tabulatorabstand.GetText
-
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
-
- printlog "check if all UnChecked"
- ToolsOptions
- hToolsOptions (sApplication,"General")
-
- If Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing x"
- If TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable x"
-
- If CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache x"
- If KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving x"
- If ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable x"
-
- if (gApplication = "DRAW") then
- If ( Zeichnungsmasstab.GetSelIndex <> 1 ) Then WarnLog "'Drawing Scale' is not item 1"
- If SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' x"
- else ' IMPRESS
- if MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot x"
- if MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' x"
- if AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' x"
- endif
-
- If ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Unit of Measurement is not item 1"
- If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not min. is: " +Tabulatorabstand.GetText + " should: " +sTemp
+ endif
+
+ If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Unit of Measurement state changed"
+ If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops state changed - watch BugID: 82744 for Status"
+
+ printlog "all UnCheck -> o"
+
+ Schnellbearbeitung.UnCheck
+ TextbereichSelektierbar.UnCheck
+
+ CacheFuerHintergrund.UnCheck
+ KopieBeimVerschieben.UnCheck
+ ObjekteImmerVerschiebbar.UnCheck
+
+ if (gApplication = "DRAW") then
+ Zeichnungsmasstab.Select (1)
+ SetzenAufKreis.UnCheck
+ else ' IMPRESS
+ MitAutopilotStarten.UnCheck
+ MitAktuellerSeite.UnCheck
+ AlleAbsatzabstaendeAddieren.UnCheck
+ endif
+
+ Masseinheit.Select (1)
+ Tabulatorabstand.ToMin
+ sTemp = Tabulatorabstand.GetText
+ printlog " More test "
+ Tabulatorabstand.More
+ if ( sTemp = Tabulatorabstand.GetText ) Then WarnLog "Tab Stops More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorabstand.GetText
+ sTemp = Tabulatorabstand.GetText
+
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+
+ printlog "check if all UnChecked"
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
+
+ If Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing x"
+ If TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable x"
+
+ If CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache x"
+ If KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving x"
+ If ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable x"
+
+ if (gApplication = "DRAW") then
+ If ( Zeichnungsmasstab.GetSelIndex <> 1 ) Then WarnLog "'Drawing Scale' is not item 1"
+ If SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' x"
+ else ' IMPRESS
+ if MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot x"
+ if MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' x"
+ if AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' x"
+ endif
+
+ If ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Unit of Measurement is not item 1"
+ If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not min. is: " +Tabulatorabstand.GetText + " should: " +sTemp
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
@@ -198,56 +200,51 @@ testcase tToolsOptionsDrawGeneral (sApplication as string)
hNewDocument
printlog "set Default Tab Stop to 2,5cm"
- ToolsOptions
- hToolsOptions (sApplication,"General")
- Masseinheit.Select (2) ' cm
- sMeasUnit = GetMeasUnit(Tabulatorabstand.GetText)
-' printlog "before " + Tabulatorabstand.GetText
- Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+ sMeasUnit)
-' printlog "after " + Tabulatorabstand.GetText
-' printlog "seperator: " + GetDecimalSeperator(Tabulatorabstand.GetText)
-' printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50cm"
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
+ Masseinheit.Select (2) ' cm
+ sMeasUnit = GetMeasUnit(Tabulatorabstand.GetText)
+ ' printlog "before " + Tabulatorabstand.GetText
+ Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+ sMeasUnit)
+ ' printlog "after " + Tabulatorabstand.GetText
+ ' printlog "seperator: " + GetDecimalSeperator(Tabulatorabstand.GetText)
+ ' printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50cm"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
printlog "creating document with tabstops and save it"
- if (gApplication = "DRAW") then
- kontext "Toolbar"
- Textfield.Click
- kontext "DocumentDraw"
- hMouseClick DocumentDraw,50,50
- else
- kontext "Toolbar"
- Textfield.Click
- kontext "DocumentImpress"
- hMouseClick DocumentImpress,20,50
- endif
- hTypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j"
-
-
+ if (gApplication = "DRAW") then
+ kontext "Toolbar"
+ Textfield.Click
+ kontext "DocumentDraw"
+ hMouseClick DocumentDraw,50,50
+ else
+ kontext "Toolbar"
+ Textfield.Click
+ kontext "DocumentImpress"
+ hMouseClick DocumentImpress,20,50
+ endif
+ hTypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j"
if ( gApplication = "IMPRESS" ) then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
hFileSaveAsKill (gOfficePath + "user\work\tab25cm." & ExtensionString )
-
- hCloseDocument
- sleep (2)
-
+ hCloseDocument
+ sleep (2)
printlog "change tab stops"
- hNewDocument
+ hNewDocument
printlog "Changed the Default Tab Stop to 2,9cm"
- ToolsOptions
- hToolsOptions (sApplication,"General")
- Masseinheit.Select (2) ' cm
-' printlog "before " + Tabulatorabstand.GetText
- Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "90"+sMeasUnit )
-' printlog "after " + Tabulatorabstand.GetText
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- sleep (2)
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
+ Masseinheit.Select (2) ' cm
+ ' printlog "before " + Tabulatorabstand.GetText
+ Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "90"+sMeasUnit )
+ ' printlog "after " + Tabulatorabstand.GetText
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ sleep (2)
@@ -271,98 +268,98 @@ testcase tToolsOptionsDrawGeneral (sApplication as string)
hCloseDocument
'---------------------------------------------------------------------------------
- Printlog ("'/// - all Check -> x ///")
+ Printlog ("all Check -> x")
- printlog "Click in the open impress document to get the focus back to the document"
- printlog "Otherwise it sometimes happend that the Tools/Option dialog doesn't display the correct applications"
- hNewDocument
- if ( sApplication = "IMPRESS") then
+ printlog "Click in the open impress document to get the focus back to the document"
+ printlog "Otherwise it sometimes happend that the Tools/Option dialog doesn't display the correct applications"
+ hNewDocument
+ if ( sApplication = "IMPRESS") then
Kontext "DocumentImpress"
- DocumentImpress.MouseDown(50,50)
- DocumentImpress.MouseUp(50,50)
- else
+ DocumentImpress.MouseDown(50,50)
+ DocumentImpress.MouseUp(50,50)
+ else
Kontext "DocumentDraw"
- DocumentDraw.MouseDown(50,50)
- DocumentDraw.MouseUp(50,50)
- endif
+ DocumentDraw.MouseDown(50,50)
+ DocumentDraw.MouseUp(50,50)
+ endif
- ToolsOptions
- hToolsOptions (sApplication,"General")
- kontext "TabSonstigesDraw"
- Schnellbearbeitung.Check
- TextbereichSelektierbar.Check
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
+ kontext "TabSonstigesDraw"
+ Schnellbearbeitung.Check
+ TextbereichSelektierbar.Check
- CacheFuerHintergrund.Check
- KopieBeimVerschieben.Check
- ObjekteImmerVerschiebbar.Check
+ CacheFuerHintergrund.Check
+ KopieBeimVerschieben.Check
+ ObjekteImmerVerschiebbar.Check
- if (gApplication = "DRAW") then
+ if (gApplication = "DRAW") then
Zeichnungsmasstab.Select (2)
itemp2 = Zeichnungsmasstab.GetSelIndex
SetzenAufKreis.Check
- else ' IMPRESS
-' MitAutopilotStarten.Check
+ else ' IMPRESS
+ ' MitAutopilotStarten.Check
MitAktuellerSeite.Check
AlleAbsatzabstaendeAddieren.Check
- endif
+ endif
- Masseinheit.Select (2)
- itemp = Masseinheit.GetSelIndex
- sTemp = "3" + GetDecimalSeperator(Tabulatorabstand.GetText) + "21"+sMeasUnit
- Tabulatorabstand.SetText (sTemp)
+ Masseinheit.Select (2)
+ itemp = Masseinheit.GetSelIndex
+ sTemp = "3" + GetDecimalSeperator(Tabulatorabstand.GetText) + "21"+sMeasUnit
+ Tabulatorabstand.SetText (sTemp)
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- printlog ("'/// - check if all Checked ///")
- ToolsOptions
- hToolsOptions (sApplication,"General")
+ printlog ("check if all Checked")
+ ToolsOptions
+ hToolsOptions (sApplication,"General")
- If True <> Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing o"
- If True <> TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable o"
+ If True <> Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing o"
+ If True <> TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable o"
- If True <> CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache o i26631"
- If True <> KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving o"
- If True <> ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable o"
+ If True <> CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache o i26631"
+ If True <> KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving o"
+ If True <> ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable o"
- if (gApplication = "DRAW") then
- If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale is not item " + iTemp2 + " it's: " + Zeichnungsmasstab.GetSelIndex
- If True <> SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' o"
- else ' IMPRESS
-' If True <> MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot o"
- If True <> MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' o"
- If True <> AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' o"
- endif
+ if (gApplication = "DRAW") then
+ If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale is not item " + iTemp2 + " it's: " + Zeichnungsmasstab.GetSelIndex
+ If True <> SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' o"
+ else ' IMPRESS
+ ' If True <> MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot o"
+ If True <> MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' o"
+ If True <> AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' o"
+ endif
- If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex
- If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not " + sTemp + " it's: " + Tabulatorabstand.GetText
+ If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex
+ If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not " + sTemp + " it's: " + Tabulatorabstand.GetText
- printlog "restore states"
+ printlog "restore states"
- If ( irgendwas(1) = TRUE ) Then Schnellbearbeitung.Check Else Schnellbearbeitung.UnCheck
- If ( irgendwas(2) = TRUE ) Then TextbereichSelektierbar.Check Else TextbereichSelektierbar.UnCheck
+ If ( irgendwas(1) = TRUE ) Then Schnellbearbeitung.Check Else Schnellbearbeitung.UnCheck
+ If ( irgendwas(2) = TRUE ) Then TextbereichSelektierbar.Check Else TextbereichSelektierbar.UnCheck
- If ( irgendwas(3) = TRUE ) Then CacheFuerHintergrund.Check Else CacheFuerHintergrund.UnCheck
- If ( irgendwas(4) = TRUE ) Then KopieBeimVerschieben.Check Else KopieBeimVerschieben.UnCheck
- If ( irgendwas(5) = TRUE ) Then ObjekteImmerVerschiebbar.Check Else ObjekteImmerVerschiebbar.UnCheck
+ If ( irgendwas(3) = TRUE ) Then CacheFuerHintergrund.Check Else CacheFuerHintergrund.UnCheck
+ If ( irgendwas(4) = TRUE ) Then KopieBeimVerschieben.Check Else KopieBeimVerschieben.UnCheck
+ If ( irgendwas(5) = TRUE ) Then ObjekteImmerVerschiebbar.Check Else ObjekteImmerVerschiebbar.UnCheck
- if (gApplication = "DRAW") then
- Zeichnungsmasstab.Select (iZeichnungsmasstab)
- If ( irgendwas(6) = TRUE ) Then SetzenAufKreis.Check Else SetzenAufKreis.UnCheck
- else ' IMPRESS
- if ( irgendwas(7) = TRUE ) Then MitAutopilotStarten.Check Else MitAutopilotStarten.UnCheck
- if ( irgendwas(8) = TRUE ) Then MitAktuellerSeite.Check Else MitAktuellerSeite.UnCheck
- if ( irgendwas(9) = TRUE ) Then AlleAbsatzabstaendeAddieren.Check Else AlleAbsatzabstaendeAddieren.UnCheck
- endif
+ if (gApplication = "DRAW") then
+ Zeichnungsmasstab.Select (iZeichnungsmasstab)
+ If ( irgendwas(6) = TRUE ) Then SetzenAufKreis.Check Else SetzenAufKreis.UnCheck
+ else ' IMPRESS
+ if ( irgendwas(7) = TRUE ) Then MitAutopilotStarten.Check Else MitAutopilotStarten.UnCheck
+ if ( irgendwas(8) = TRUE ) Then MitAktuellerSeite.Check Else MitAktuellerSeite.UnCheck
+ if ( irgendwas(9) = TRUE ) Then AlleAbsatzabstaendeAddieren.Check Else AlleAbsatzabstaendeAddieren.UnCheck
+ endif
- Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O
- Tabulatorabstand.SetText (sTabAbstand) ' sw:MetricField:TP_LAYOUT_OPT:MF_TAB
+ Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O
+ Tabulatorabstand.SetText (sTabAbstand) ' sw:MetricField:TP_LAYOUT_OPT:MF_TAB
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- hCloseDocument
+ hCloseDocument
endcase 'tToolsOptionsDrawGeneral
'------------------------------------------------------------------------------
@@ -406,143 +403,143 @@ testcase tToolsOptionsDrawView (sApplication as string)
printlog "all UnCheck -> o"
- LinealeSichtbar.UnCheck
- HilfslinienBeimBewegen.UnCheck
- KontrolpunkteImBezierEditor.UnCheck
- KonturFuerIndividuelleObjekte.UnCheck
+ LinealeSichtbar.UnCheck
+ HilfslinienBeimBewegen.UnCheck
+ KontrolpunkteImBezierEditor.UnCheck
+ KonturFuerIndividuelleObjekte.UnCheck
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- printlog "check if all UnChecked"
- ToolsOptions
- hToolsOptions (sApplication,"View")
+ printlog "check if all UnChecked"
+ ToolsOptions
+ hToolsOptions (sApplication,"View")
- If LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible x"
- If HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving x"
- If KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' x"
- If KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' x"
+ If LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible x"
+ If HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving x"
+ If KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' x"
+ If KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' x"
- Printlog "all Check -> x"
+ Printlog "all Check -> x"
- LinealeSichtbar.Check
- HilfslinienBeimBewegen.Check
- KontrolpunkteImBezierEditor.Check
- KonturFuerIndividuelleObjekte.Check
+ LinealeSichtbar.Check
+ HilfslinienBeimBewegen.Check
+ KontrolpunkteImBezierEditor.Check
+ KonturFuerIndividuelleObjekte.Check
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- printlog "check if all Checked"
- ToolsOptions
- hToolsOptions (sApplication,"View")
+ printlog "check if all Checked"
+ ToolsOptions
+ hToolsOptions (sApplication,"View")
- If True <> LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible o"
- If True <> HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving o"
- If True <> KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' o"
- If True <> KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' o"
+ If True <> LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible o"
+ If True <> HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving o"
+ If True <> KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' o"
+ If True <> KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' o"
- printlog "restore states"
+ printlog "restore states"
- If ( irgendwas(1) = TRUE ) Then LinealeSichtbar.Check Else LinealeSichtbar.UnCheck
- If ( irgendwas(2) = TRUE ) Then HilfslinienBeimBewegen.Check Else HilfslinienBeimBewegen.UnCheck
- If ( irgendwas(3) = TRUE ) Then KontrolpunkteImBezierEditor.Check Else KontrolpunkteImBezierEditor.UnCheck
- If ( irgendwas(4) = TRUE ) Then KonturFuerIndividuelleObjekte.Check Else KonturFuerIndividuelleObjekte.UnCheck
+ If ( irgendwas(1) = TRUE ) Then LinealeSichtbar.Check Else LinealeSichtbar.UnCheck
+ If ( irgendwas(2) = TRUE ) Then HilfslinienBeimBewegen.Check Else HilfslinienBeimBewegen.UnCheck
+ If ( irgendwas(3) = TRUE ) Then KontrolpunkteImBezierEditor.Check Else KontrolpunkteImBezierEditor.UnCheck
+ If ( irgendwas(4) = TRUE ) Then KonturFuerIndividuelleObjekte.Check Else KonturFuerIndividuelleObjekte.UnCheck
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- hCloseDocument
+ hCloseDocument
endcase 'tToolsOptionsDrawView
'--------------------------------------------------------------------------------
testcase tToolsOptionsDrawGrid (sApplication as string)
- dim irgendwas(10) as boolean
- dim sMetricField(7) as string ' MetricField
- dim sTempMetricField(7) as string
- dim iTry as integer ' some increment variable
+ dim irgendwas(10) as boolean
+ dim sMetricField(7) as string ' MetricField
+ dim sTempMetricField(7) as string
+ dim iTry as integer ' some increment variable
- if ( gApplication = "IMPRESS" ) then
+ if ( gApplication = "IMPRESS" ) then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- hNewDocument
-
- printlog "save states"
- ToolsOptions
- hToolsOptions (sApplication,"Grid")
-
- irgendwas(1) = FangrasterBenutzen.IsChecked
- irgendwas(2) = RasterSichtbar.IsChecked
-
- irgendwas(3) = AchsenSynchronisieren.IsChecked
-
- irgendwas(4) = AnFanglinien.IsChecked
- irgendwas(5) = AnSeitenraendern.IsChecked
- irgendwas(6) = AmObjektrahmen.IsChecked
- irgendwas(7) = AnObjektpunkten.IsChecked
-
- irgendwas(8) = BeimErzeugenUndBewegen.IsChecked
- irgendwas(9) = LaengereKantenlaenge.IsChecked
- irgendwas(10)= BeimDrehen.IsChecked
- if BeimDrehen.IsChecked then sMetricField(7) = Winkel.getText
-
- sMetricField(1) = RasterAufloesungXAchse.GetText
- sMetricField(2) = RasterAufloesungYAchse.GetText
- sMetricField(3) = RasterUnterteilungXAchse.GetText
- sMetricField(4) = RasterUnterteilungYAchse.GetText
- sMetricField(5) = FangenFangbereich.GetText
- sMetricField(6) = Punktreduktion.GetText
-
- printlog "all states inverting"
-
- if irgendwas(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check
- if irgendwas(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check
-
-' if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
- ' this CheckBox interacts with the MetricBoxes:
- AchsenSynchronisieren.UnCheck
-
- if irgendwas(4) Then AnFanglinien.UnCheck Else AnFanglinien.Check
- if irgendwas(5) Then AnSeitenraendern.UnCheck Else AnSeitenraendern.Check
- if irgendwas(6) Then AmObjektrahmen.UnCheck Else AmObjektrahmen.Check
- if irgendwas(7) Then AnObjektpunkten.UnCheck Else AnObjektpunkten.Check
-
- if irgendwas(8) Then BeimErzeugenUndBewegen.UnCheck Else BeimErzeugenUndBewegen.Check
- if irgendwas(9) Then LaengereKantenlaenge.UnCheck Else LaengereKantenlaenge.Check
- if irgendwas(10)Then BeimDrehen.UnCheck Else BeimDrehen.Check
-
- sTempMetricField(1) = RasterAufloesungXAchse.GetText
- sTempMetricField(2) = RasterAufloesungYAchse.GetText
- sTempMetricField(3) = RasterUnterteilungXAchse.GetText
- sTempMetricField(4) = RasterUnterteilungYAchse.GetText
- sTempMetricField(5) = FangenFangbereich.GetText
- sTempMetricField(6) = Punktreduktion.GetText
- RasterAufloesungXAchse.ToMax
- RasterAufloesungYAchse.ToMin
- RasterUnterteilungXAchse.ToMin
- RasterUnterteilungYAchse.ToMax
- FangenFangbereich.ToMin
- Punktreduktion.ToMax
- If ( RasterAufloesungXAchse.GetText = sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin
- If ( RasterAufloesungYAchse.GetText = sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax
- If ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax
- If ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin
- If ( FangenFangbereich.GetText = sTempMetricField(5) ) Then FangenFangbereich.ToMax
- If ( Punktreduktion.GetText = sTempMetricField(6) ) Then Punktreduktion.ToMin
- RasterAufloesungXAchse.More ' because it must greater than the.min value for the subdivisions if they are .tomax!
- RasterAufloesungXAchse.More
- RasterAufloesungYAchse.More
- RasterAufloesungYAchse.More
- sTempMetricField(1) = RasterAufloesungXAchse.GetText
- sTempMetricField(2) = RasterAufloesungYAchse.GetText
- sTempMetricField(3) = RasterUnterteilungXAchse.GetText
- sTempMetricField(4) = RasterUnterteilungYAchse.GetText
- sTempMetricField(5) = FangenFangbereich.GetText
- sTempMetricField(6) = Punktreduktion.GetText
+ hNewDocument
+
+ printlog "save states"
+ ToolsOptions
+ hToolsOptions (sApplication,"Grid")
+
+ irgendwas(1) = FangrasterBenutzen.IsChecked
+ irgendwas(2) = RasterSichtbar.IsChecked
+
+ irgendwas(3) = AchsenSynchronisieren.IsChecked
+
+ irgendwas(4) = AnFanglinien.IsChecked
+ irgendwas(5) = AnSeitenraendern.IsChecked
+ irgendwas(6) = AmObjektrahmen.IsChecked
+ irgendwas(7) = AnObjektpunkten.IsChecked
+
+ irgendwas(8) = BeimErzeugenUndBewegen.IsChecked
+ irgendwas(9) = LaengereKantenlaenge.IsChecked
+ irgendwas(10)= BeimDrehen.IsChecked
+ if BeimDrehen.IsChecked then sMetricField(7) = Winkel.getText
+
+ sMetricField(1) = RasterAufloesungXAchse.GetText
+ sMetricField(2) = RasterAufloesungYAchse.GetText
+ sMetricField(3) = RasterUnterteilungXAchse.GetText
+ sMetricField(4) = RasterUnterteilungYAchse.GetText
+ sMetricField(5) = FangenFangbereich.GetText
+ sMetricField(6) = Punktreduktion.GetText
+
+ printlog "all states inverting"
+
+ if irgendwas(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check
+ if irgendwas(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check
+
+ ' if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
+ ' this CheckBox interacts with the MetricBoxes:
+ AchsenSynchronisieren.UnCheck
+
+ if irgendwas(4) Then AnFanglinien.UnCheck Else AnFanglinien.Check
+ if irgendwas(5) Then AnSeitenraendern.UnCheck Else AnSeitenraendern.Check
+ if irgendwas(6) Then AmObjektrahmen.UnCheck Else AmObjektrahmen.Check
+ if irgendwas(7) Then AnObjektpunkten.UnCheck Else AnObjektpunkten.Check
+
+ if irgendwas(8) Then BeimErzeugenUndBewegen.UnCheck Else BeimErzeugenUndBewegen.Check
+ if irgendwas(9) Then LaengereKantenlaenge.UnCheck Else LaengereKantenlaenge.Check
+ if irgendwas(10)Then BeimDrehen.UnCheck Else BeimDrehen.Check
+
+ sTempMetricField(1) = RasterAufloesungXAchse.GetText
+ sTempMetricField(2) = RasterAufloesungYAchse.GetText
+ sTempMetricField(3) = RasterUnterteilungXAchse.GetText
+ sTempMetricField(4) = RasterUnterteilungYAchse.GetText
+ sTempMetricField(5) = FangenFangbereich.GetText
+ sTempMetricField(6) = Punktreduktion.GetText
+ RasterAufloesungXAchse.ToMax
+ RasterAufloesungYAchse.ToMin
+ RasterUnterteilungXAchse.ToMin
+ RasterUnterteilungYAchse.ToMax
+ FangenFangbereich.ToMin
+ Punktreduktion.ToMax
+ If ( RasterAufloesungXAchse.GetText = sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin
+ If ( RasterAufloesungYAchse.GetText = sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax
+ If ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax
+ If ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin
+ If ( FangenFangbereich.GetText = sTempMetricField(5) ) Then FangenFangbereich.ToMax
+ If ( Punktreduktion.GetText = sTempMetricField(6) ) Then Punktreduktion.ToMin
+ RasterAufloesungXAchse.More ' because it must greater than the.min value for the subdivisions if they are .tomax!
+ RasterAufloesungXAchse.More
+ RasterAufloesungYAchse.More
+ RasterAufloesungYAchse.More
+ sTempMetricField(1) = RasterAufloesungXAchse.GetText
+ sTempMetricField(2) = RasterAufloesungYAchse.GetText
+ sTempMetricField(3) = RasterUnterteilungXAchse.GetText
+ sTempMetricField(4) = RasterUnterteilungYAchse.GetText
+ sTempMetricField(5) = FangenFangbereich.GetText
+ sTempMetricField(6) = Punktreduktion.GetText
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
@@ -557,205 +554,203 @@ testcase tToolsOptionsDrawGrid (sApplication as string)
ToolsOptions
hToolsOptions (sApplication,"Grid")
- If ( irgendwas(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "Snap to Grid state changed"
- If ( irgendwas(2) = RasterSichtbar.IsChecked ) Then WarnLog "Visible Grid state changed"
-
-' If ( irgendwas(3) = AchsenSynchronisieren.IsChecked ) Then WarnLog "Synchronize Axes state changed"
- if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "Synchronize Axes state changed"
-
- If ( irgendwas(4) = AnFanglinien.IsChecked ) Then WarnLog "To snap lines state changed"
- If ( irgendwas(5) = AnSeitenraendern.IsChecked ) Then WarnLog "To the page margins state changed"
- If ( irgendwas(6) = AmObjektrahmen.IsChecked ) Then WarnLog "To object frame state changed"
- If ( irgendwas(7) = AnObjektpunkten.IsChecked ) Then WarnLog "To object points state changed"
-
- If ( irgendwas(8) = BeimErzeugenUndBewegen.IsChecked ) Then WarnLog "When creating or moving objects state changed"
- If ( irgendwas(9) = LaengereKantenlaenge.IsChecked ) Then WarnLog "Extend Edges state changed"
- If ( irgendwas(10)= BeimDrehen.IsChecked ) Then WarnLog "When Rotating state changed"
-
- If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel state changed"
- If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel state changed"
- If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel state changed is: "+RasterUnterteilungXAchse.GetText+"; should: "+sTempMetricField(3)
- If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel state changed is: "+RasterUnterteilungYAchse.GetText+"; should: "+sTempMetricField(4)
- If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "SnapSnap range state changed"
- If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction state changed"
-
- printlog "all UnCheck -> o"
-
- FangrasterBenutzen.UnCheck
- RasterSichtbar.UnCheck
-
- AchsenSynchronisieren.UnCheck
-
- AnFanglinien.UnCheck
- AnSeitenraendern.UnCheck
- AmObjektrahmen.UnCheck
- AnObjektpunkten.UnCheck
-
- BeimErzeugenUndBewegen.UnCheck
- LaengereKantenlaenge.UnCheck
- BeimDrehen.UnCheck
-
- RasterAufloesungXAchse.ToMin
- RasterAufloesungYAchse.ToMin
- RasterUnterteilungXAchse.ToMin
- RasterUnterteilungYAchse.ToMin
- FangenFangbereich.ToMin
- Punktreduktion.ToMin
- sTempMetricField(1) = RasterAufloesungXAchse.GetText
- sTempMetricField(2) = RasterAufloesungYAchse.GetText
- sTempMetricField(3) = RasterUnterteilungXAchse.GetText
- sTempMetricField(4) = RasterUnterteilungYAchse.GetText
- sTempMetricField(5) = FangenFangbereich.GetText
- sTempMetricField(6) = Punktreduktion.GetText
- printlog "More test"
- RasterAufloesungXAchse.More
- RasterAufloesungYAchse.More
- RasterUnterteilungXAchse.More
- RasterUnterteilungYAchse.More
- FangenFangbereich.More
- Punktreduktion.More
- if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText ) Then WarnLog "GridResolutionXAxel More-Button not working"
- if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText ) Then WarnLog "GridResolutionYAxel More-Button not working"
- if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "GridSubdivisionXAxel More-Button not working"
- if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "GridSubdivisionYAxel More-Button not working"
- if ( sTempMetricField(5) = FangenFangbereich.GetText ) Then WarnLog "Snap Snap Range More-Button not working"
- if ( sTempMetricField(6) = Punktreduktion.GetText ) Then WarnLog "Pointreduction More-Button not working is: "+Punktreduktion.GetText
- sTempMetricField(1) = RasterAufloesungXAchse.GetText
- sTempMetricField(2) = RasterAufloesungYAchse.GetText
- sTempMetricField(3) = RasterUnterteilungXAchse.GetText
- sTempMetricField(4) = RasterUnterteilungYAchse.GetText
- sTempMetricField(5) = FangenFangbereich.GetText
- sTempMetricField(6) = Punktreduktion.GetText
+ If ( irgendwas(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "Snap to Grid state changed"
+ If ( irgendwas(2) = RasterSichtbar.IsChecked ) Then WarnLog "Visible Grid state changed"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ' If ( irgendwas(3) = AchsenSynchronisieren.IsChecked ) Then WarnLog "Synchronize Axes state changed"
+ if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "Synchronize Axes state changed"
+
+ If ( irgendwas(4) = AnFanglinien.IsChecked ) Then WarnLog "To snap lines state changed"
+ If ( irgendwas(5) = AnSeitenraendern.IsChecked ) Then WarnLog "To the page margins state changed"
+ If ( irgendwas(6) = AmObjektrahmen.IsChecked ) Then WarnLog "To object frame state changed"
+ If ( irgendwas(7) = AnObjektpunkten.IsChecked ) Then WarnLog "To object points state changed"
+
+ If ( irgendwas(8) = BeimErzeugenUndBewegen.IsChecked ) Then WarnLog "When creating or moving objects state changed"
+ If ( irgendwas(9) = LaengereKantenlaenge.IsChecked ) Then WarnLog "Extend Edges state changed"
+ If ( irgendwas(10)= BeimDrehen.IsChecked ) Then WarnLog "When Rotating state changed"
+
+ If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel state changed"
+ If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel state changed"
+ If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel state changed is: "+RasterUnterteilungXAchse.GetText+"; should: "+sTempMetricField(3)
+ If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel state changed is: "+RasterUnterteilungYAchse.GetText+"; should: "+sTempMetricField(4)
+ If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "SnapSnap range state changed"
+ If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction state changed"
+
+ printlog "all UnCheck -> o"
+
+ FangrasterBenutzen.UnCheck
+ RasterSichtbar.UnCheck
+
+ AchsenSynchronisieren.UnCheck
+
+ AnFanglinien.UnCheck
+ AnSeitenraendern.UnCheck
+ AmObjektrahmen.UnCheck
+ AnObjektpunkten.UnCheck
+
+ BeimErzeugenUndBewegen.UnCheck
+ LaengereKantenlaenge.UnCheck
+ BeimDrehen.UnCheck
+
+ RasterAufloesungXAchse.ToMin
+ RasterAufloesungYAchse.ToMin
+ RasterUnterteilungXAchse.ToMin
+ RasterUnterteilungYAchse.ToMin
+ FangenFangbereich.ToMin
+ Punktreduktion.ToMin
+ sTempMetricField(1) = RasterAufloesungXAchse.GetText
+ sTempMetricField(2) = RasterAufloesungYAchse.GetText
+ sTempMetricField(3) = RasterUnterteilungXAchse.GetText
+ sTempMetricField(4) = RasterUnterteilungYAchse.GetText
+ sTempMetricField(5) = FangenFangbereich.GetText
+ sTempMetricField(6) = Punktreduktion.GetText
+ printlog "More test"
+ RasterAufloesungXAchse.More
+ RasterAufloesungYAchse.More
+ RasterUnterteilungXAchse.More
+ RasterUnterteilungYAchse.More
+ FangenFangbereich.More
+ Punktreduktion.More
+ if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText ) Then WarnLog "GridResolutionXAxel More-Button not working"
+ if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText ) Then WarnLog "GridResolutionYAxel More-Button not working"
+ if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "GridSubdivisionXAxel More-Button not working"
+ if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "GridSubdivisionYAxel More-Button not working"
+ if ( sTempMetricField(5) = FangenFangbereich.GetText ) Then WarnLog "Snap Snap Range More-Button not working"
+ if ( sTempMetricField(6) = Punktreduktion.GetText ) Then WarnLog "Pointreduction More-Button not working is: "+Punktreduktion.GetText
+ sTempMetricField(1) = RasterAufloesungXAchse.GetText
+ sTempMetricField(2) = RasterAufloesungYAchse.GetText
+ sTempMetricField(3) = RasterUnterteilungXAchse.GetText
+ sTempMetricField(4) = RasterUnterteilungYAchse.GetText
+ sTempMetricField(5) = FangenFangbereich.GetText
+ sTempMetricField(6) = Punktreduktion.GetText
+
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- printlog "check if all UnChecked"
- ToolsOptions
- hToolsOptions (sApplication,"Grid")
+ printlog "check if all UnChecked"
+ ToolsOptions
+ hToolsOptions (sApplication,"Grid")
- If FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid x"
- If RasterSichtbar.IsChecked Then WarnLog "Visible Grid x"
+ If FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid x"
+ If RasterSichtbar.IsChecked Then WarnLog "Visible Grid x"
- If AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes x"
+ If AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes x"
- If AnFanglinien.IsChecked Then WarnLog "To Snap Lines x"
- If AnSeitenraendern.IsChecked Then WarnLog "To The Page Margins x"
- If AmObjektrahmen.IsChecked Then WarnLog "To Object Frame x"
- If AnObjektpunkten.IsChecked Then WarnLog "To Object Points x"
+ If AnFanglinien.IsChecked Then WarnLog "To Snap Lines x"
+ If AnSeitenraendern.IsChecked Then WarnLog "To The Page Margins x"
+ If AmObjektrahmen.IsChecked Then WarnLog "To Object Frame x"
+ If AnObjektpunkten.IsChecked Then WarnLog "To Object Points x"
- If BeimErzeugenUndBewegen.IsChecked Then WarnLog "When Creating or Moving Objects x"
- If LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges x"
- If BeimDrehen.IsChecked Then WarnLog "When Rotating x"
+ If BeimErzeugenUndBewegen.IsChecked Then WarnLog "When Creating or Moving Objects x"
+ If LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges x"
+ If BeimDrehen.IsChecked Then WarnLog "When Rotating x"
- If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not min."
- If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not min."
- If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not min."
- If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not min."
- If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not min."
- If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Point Reduction is not min."
+ If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not min."
+ If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not min."
+ If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not min."
+ If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not min."
+ If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not min."
+ If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Point Reduction is not min."
- Printlog "all Check -> x"
+ Printlog "all Check -> x"
- FangrasterBenutzen.Check
- RasterSichtbar.Check
+ FangrasterBenutzen.Check
+ RasterSichtbar.Check
- AchsenSynchronisieren.Check
+ AchsenSynchronisieren.Check
printlog "Synchronize axes check"
- RasterAufloesungXAchse.ToMax
- sleep 1
- sTempMetricField(1) = RasterAufloesungXAchse.GetText
- if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
- RasterUnterteilungXAchse.ToMax
- sleep 1
- sTempMetricField(3) = RasterUnterteilungXAchse.GetText
- if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
-'--------------------------------------------
- sTempMetricField(2) = RasterAufloesungYAchse.GetText
- sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-
- FangenFangbereich.Less
- Punktreduktion.Less
- sTempMetricField(5) = FangenFangbereich.GetText
- sTempMetricField(6) = Punktreduktion.GetText
-
- AnFanglinien.Check
- AnSeitenraendern.Check
- AmObjektrahmen.Check
- AnObjektpunkten.Check
-
- BeimErzeugenUndBewegen.Check
- LaengereKantenlaenge.Check
- BeimDrehen.Check
- Winkel.ToMax
- sTempMetricField(7) = Winkel.GetText
+ RasterAufloesungXAchse.ToMax
+ sleep 1
+ sTempMetricField(1) = RasterAufloesungXAchse.GetText
+ if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
+ RasterUnterteilungXAchse.ToMax
+ sleep 1
+ sTempMetricField(3) = RasterUnterteilungXAchse.GetText
+ if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
+ '--------------------------------------------
+ sTempMetricField(2) = RasterAufloesungYAchse.GetText
+ sTempMetricField(4) = RasterUnterteilungYAchse.GetText
+
+ FangenFangbereich.Less
+ Punktreduktion.Less
+ sTempMetricField(5) = FangenFangbereich.GetText
+ sTempMetricField(6) = Punktreduktion.GetText
+
+ AnFanglinien.Check
+ AnSeitenraendern.Check
+ AmObjektrahmen.Check
+ AnObjektpunkten.Check
+
+ BeimErzeugenUndBewegen.Check
+ LaengereKantenlaenge.Check
+ BeimDrehen.Check
+ Winkel.ToMax
+ sTempMetricField(7) = Winkel.GetText
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- printlog "check if all Checked"
- ToolsOptions
- hToolsOptions (sApplication,"Grid")
+ printlog "check if all Checked"
+ ToolsOptions
+ hToolsOptions (sApplication,"Grid")
- If True <> FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid o"
- If True <> RasterSichtbar.IsChecked Then WarnLog "Visible Grid o"
+ If True <> FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid o"
+ If True <> RasterSichtbar.IsChecked Then WarnLog "Visible Grid o"
- If True <> AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes o"
+ If True <> AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes o"
- If True <> AnFanglinien.IsChecked Then WarnLog "to snap lines o"
- If True <> AnSeitenraendern.IsChecked Then WarnLog "to the page margins o"
- If True <> AmObjektrahmen.IsChecked Then WarnLog "to object frame o"
- If True <> AnObjektpunkten.IsChecked Then WarnLog "To object points o"
+ If True <> AnFanglinien.IsChecked Then WarnLog "to snap lines o"
+ If True <> AnSeitenraendern.IsChecked Then WarnLog "to the page margins o"
+ If True <> AmObjektrahmen.IsChecked Then WarnLog "to object frame o"
+ If True <> AnObjektpunkten.IsChecked Then WarnLog "To object points o"
- If True <> BeimErzeugenUndBewegen.IsChecked Then WarnLog "When creating or moving objects o"
- If True <> LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges o"
- If True <> BeimDrehen.IsChecked Then WarnLog "When Rotating o"
- If ( Winkel.GetText <> sTempMetricField(7) ) Then WarnLog "Angle is not max."
+ If True <> BeimErzeugenUndBewegen.IsChecked Then WarnLog "When creating or moving objects o"
+ If True <> LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges o"
+ If True <> BeimDrehen.IsChecked Then WarnLog "When Rotating o"
+ If ( Winkel.GetText <> sTempMetricField(7) ) Then WarnLog "Angle is not max."
- If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not max.Bug 54934 in 01:"
- If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not max."
- If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not max."
- If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not max."
- If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not max."
- If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction is not max."
+ If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not max.Bug 54934 in 01:"
+ If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not max."
+ If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not max."
+ If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not max."
+ If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not max."
+ If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction is not max."
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
'-------------------------------------------------------------------------------
printlog "Function Test: Grid Resolution"
- printlog "gTesttoolPath + graphics\required\input\gridtst.od?"
-
- if ( gApplication = "IMPRESS" ) then
+ printlog "gTesttoolPath + graphics\required\input\gridtst.od?"
+ if ( gApplication = "IMPRESS" ) then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
- Call hFileOpen ( gTesttoolPath + "graphics\required\input\gridtst."+ExtensionString, False )
- sleep 5
- printlog "If write-protected - open as Temp-file"
- Kontext "Standardbar"
- if Bearbeiten.GetState(2) <> 1 then
+ Call hFileOpen ( gTesttoolPath + "graphics\required\input\gridtst."+ExtensionString, False )
+ sleep 5
+ printlog "If write-protected - open as Temp-file"
+ Kontext "Standardbar"
+ if Bearbeiten.GetState(2) <> 1 then
Bearbeiten.Click '0 = not pressed. 1 = pressed.
Kontext
if Active.Exists() then
- Active.Yes
+ Active.Yes
else
warnlog "No messagebox after making document editable? - Test canceled here"
goto endsub
endif
- endif
- sleep (8)
- if uCase(gApplication) = "IMPRESS" then
+ endif
+ sleep (8)
+ if uCase(gApplication) = "IMPRESS" then
Kontext "DocumentImpress"
- else
+ else
Kontext "DocumentDraw"
- endif
- printlog "select grafik element"
- for iTry = 1 to 20
+ endif
+ printlog "select grafik element"
+ for iTry = 1 to 20
try
EditSelectAll
printlog "EditSelectAll ready after " & iTry/10 & " seconds"
@@ -769,21 +764,21 @@ testcase tToolsOptionsDrawGrid (sApplication as string)
ContextPositionAndSize
Kontext
active.setpage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- if ( StrToDouble (PositionX.GetText) <> 0 ) Then WarnLog "HorizontalBy wrong presupposition != 0"
- if ( StrToDouble (Positiony.GetText) <> 0 ) Then WarnLog "VerticalBy wrong presupposition != 0"
- TabPositionAndSize.Cancel
- sleep (3)
-
- printlog "move grafik with <Alt> + <up/down>"
+ Kontext "TabPositionAndSize"
+ sleep 1
+ if ( StrToDouble (PositionX.GetText) <> 0 ) Then WarnLog "HorizontalBy wrong presupposition != 0"
+ if ( StrToDouble (Positiony.GetText) <> 0 ) Then WarnLog "VerticalBy wrong presupposition != 0"
+ TabPositionAndSize.Cancel
+ sleep (3)
+
+ printlog "move grafik with <Alt> + <up/down>"
printlog "resulting step = defined for accessability <> one pixel with cursor traveling"
- hTypeKeys "<Mod2 Down>"
+ hTypeKeys "<Mod2 Down>"
sleep (3)
- hTypeKeys "<Mod2 Right>"
+ hTypeKeys "<Mod2 Right>"
- printlog "check if @ (1,1) Current-Measure-Unit :-)"
- for iTry = 1 to 20
+ printlog "check if @ (1,1) Current-Measure-Unit :-)"
+ for iTry = 1 to 20
try
EditSelectAll
printlog "EditSelectAll ready after " & iTry/10 & " seconds"
@@ -792,18 +787,18 @@ testcase tToolsOptionsDrawGrid (sApplication as string)
wait( 100 )
endcatch
next iTry
- try
+ try
ContextPositionAndSize
- catch
+ catch
printlog "Why is format position and size not enabled ? Wrong focus?"
- endcatch
+ endcatch
Kontext
active.setpage TabPositionAndSize
- Kontext "TabPositionAndSize"
- Printlog "X difference is: '"+StrToDouble (PositionX.GetText)+"'; "+PositionX.GetText
- Printlog "Y difference is: '"+StrToDouble (PositionY.GetText)+"'; "+PositionY.GetText
- TabPositionAndSize.Cancel
-' sleep (3)
+ Kontext "TabPositionAndSize"
+ Printlog "X difference is: '"+StrToDouble (PositionX.GetText)+"'; "+PositionX.GetText
+ Printlog "Y difference is: '"+StrToDouble (PositionY.GetText)+"'; "+PositionY.GetText
+ TabPositionAndSize.Cancel
+ ' sleep (3)
hCloseDocument
@@ -813,27 +808,27 @@ testcase tToolsOptionsDrawGrid (sApplication as string)
ToolsOptions
hToolsOptions (sApplication,"Grid")
- If ( irgendwas(2) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck
- If ( irgendwas(3) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck
-
- If ( irgendwas(4) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
-
- If ( irgendwas(5) = TRUE ) Then AnFanglinien.Check Else AnFanglinien.UnCheck
- If ( irgendwas(6) = TRUE ) Then AnSeitenraendern.Check Else AnSeitenraendern.UnCheck
- If ( irgendwas(7) = TRUE ) Then AmObjektrahmen.Check Else AmObjektrahmen.UnCheck
- If ( irgendwas(8) = TRUE ) Then AnObjektpunkten.Check Else AnObjektpunkten.UnCheck
-
- If ( irgendwas(6) = TRUE ) Then BeimErzeugenUndBewegen.Check Else BeimErzeugenUndBewegen.UnCheck
- If ( irgendwas(7) = TRUE ) Then LaengereKantenlaenge.Check Else LaengereKantenlaenge.UnCheck
- If ( irgendwas(8) = TRUE ) Then BeimDrehen.Check Else BeimDrehen.UnCheck
- if BeimDrehen.IsChecked then Winkel.SetText (sMetricField(7))
-
- RasterAufloesungXAchse.SetText (sMetricField(1))
- RasterAufloesungYAchse.SetText (sMetricField(2))
- RasterUnterteilungXAchse.SetText (sMetricField(3))
- RasterUnterteilungYAchse.SetText (sMetricField(4))
- FangenFangbereich.SetText (sMetricField(5))
- Punktreduktion.SetText (sMetricField(6))
+ If ( irgendwas(2) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck
+ If ( irgendwas(3) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck
+
+ If ( irgendwas(4) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
+
+ If ( irgendwas(5) = TRUE ) Then AnFanglinien.Check Else AnFanglinien.UnCheck
+ If ( irgendwas(6) = TRUE ) Then AnSeitenraendern.Check Else AnSeitenraendern.UnCheck
+ If ( irgendwas(7) = TRUE ) Then AmObjektrahmen.Check Else AmObjektrahmen.UnCheck
+ If ( irgendwas(8) = TRUE ) Then AnObjektpunkten.Check Else AnObjektpunkten.UnCheck
+
+ If ( irgendwas(6) = TRUE ) Then BeimErzeugenUndBewegen.Check Else BeimErzeugenUndBewegen.UnCheck
+ If ( irgendwas(7) = TRUE ) Then LaengereKantenlaenge.Check Else LaengereKantenlaenge.UnCheck
+ If ( irgendwas(8) = TRUE ) Then BeimDrehen.Check Else BeimDrehen.UnCheck
+ if BeimDrehen.IsChecked then Winkel.SetText (sMetricField(7))
+
+ RasterAufloesungXAchse.SetText (sMetricField(1))
+ RasterAufloesungYAchse.SetText (sMetricField(2))
+ RasterUnterteilungXAchse.SetText (sMetricField(3))
+ RasterUnterteilungYAchse.SetText (sMetricField(4))
+ FangenFangbereich.SetText (sMetricField(5))
+ Punktreduktion.SetText (sMetricField(6))
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
@@ -845,58 +840,58 @@ endcase 'tToolsOptionsDrawGrid
testcase tToolsOptionsDrawPrint (sApplication as string)
- dim irgendwas(11) as boolean
- dim bRadioBut(7) as boolean ' RadioButtons
- dim bTempRadioBut(7) as boolean
- dim iShouldHaveBeenAMultiListBox as integer
+ dim irgendwas(11) as boolean
+ dim bRadioBut(7) as boolean ' RadioButtons
+ dim bTempRadioBut(7) as boolean
+ dim iShouldHaveBeenAMultiListBox as integer
- hNewDocument
+ hNewDocument
- printlog "save states"
- ToolsOptions
- hToolsOptions (sApplication,"Print")
+ printlog "save states"
+ ToolsOptions
+ hToolsOptions (sApplication,"Print")
- Standard.Check
- irgendwas(1) = Seitenname.IsChecked
- irgendwas(2) = Datum.IsChecked
- irgendwas(3) = Zeit.IsChecked
- irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked
+ Standard.Check
+ irgendwas(1) = Seitenname.IsChecked
+ irgendwas(2) = Datum.IsChecked
+ irgendwas(3) = Zeit.IsChecked
+ irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked
- Prospekt.Check
- irgendwas(5) = Vorderseite.IsChecked
- irgendwas(6) = Rueckseite.IsChecked
+ Prospekt.Check
+ irgendwas(5) = Vorderseite.IsChecked
+ irgendwas(6) = Rueckseite.IsChecked
- irgendwas(7) = AusDruckereinstellung.IsChecked
+ irgendwas(7) = AusDruckereinstellung.IsChecked
- bRadioBut(1) = StandardAusgabe.IsChecked
- bRadioBut(2) = Graustufen.IsChecked
- bRadioBut(3) = SchwarzWeiss.IsChecked
- bRadioBut(4) = Standard.IsChecked
- bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
- bRadioBut(6) = SeitenKacheln.IsChecked
+ bRadioBut(1) = StandardAusgabe.IsChecked
+ bRadioBut(2) = Graustufen.IsChecked
+ bRadioBut(3) = SchwarzWeiss.IsChecked
+ bRadioBut(4) = Standard.IsChecked
+ bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
+ bRadioBut(6) = SeitenKacheln.IsChecked
- printlog "all states inverting"
+ printlog "all states inverting"
- Standard.Check
- if irgendwas(1) Then Seitenname.UnCheck Else Seitenname.Check
- if irgendwas(2) Then Datum.UnCheck Else Datum.Check
- if irgendwas(3) Then Zeit.UnCheck Else Zeit.Check
- if irgendwas(4) Then AusgeblendeteSeitenDrucken.UnCheck Else AusgeblendeteSeitenDrucken.Check
+ Standard.Check
+ if irgendwas(1) Then Seitenname.UnCheck Else Seitenname.Check
+ if irgendwas(2) Then Datum.UnCheck Else Datum.Check
+ if irgendwas(3) Then Zeit.UnCheck Else Zeit.Check
+ if irgendwas(4) Then AusgeblendeteSeitenDrucken.UnCheck Else AusgeblendeteSeitenDrucken.Check
- Prospekt.Check
- if irgendwas(5) Then Vorderseite.UnCheck Else Vorderseite.Check
- if irgendwas(6) Then Rueckseite.UnCheck Else Rueckseite.Check
+ Prospekt.Check
+ if irgendwas(5) Then Vorderseite.UnCheck Else Vorderseite.Check
+ if irgendwas(6) Then Rueckseite.UnCheck Else Rueckseite.Check
- if irgendwas(7) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check
+ if irgendwas(7) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check
- if (StandardAusgabe.IsChecked = True) Then Graustufen.Check Else StandardAusgabe.Check
- bTempRadioBut(1) = StandardAusgabe.IsChecked
- bTempRadioBut(2) = Graustufen.IsChecked
- bTempRadioBut(3) = SchwarzWeiss.IsChecked
- if (Standard.IsChecked = True) Then AnSeitengroesseAnpassen.Check Else Standard.Check
- bRadioBut(4) = Standard.IsChecked
- bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
- bRadioBut(6) = SeitenKacheln.IsChecked
+ if (StandardAusgabe.IsChecked = True) Then Graustufen.Check Else StandardAusgabe.Check
+ bTempRadioBut(1) = StandardAusgabe.IsChecked
+ bTempRadioBut(2) = Graustufen.IsChecked
+ bTempRadioBut(3) = SchwarzWeiss.IsChecked
+ if (Standard.IsChecked = True) Then AnSeitengroesseAnpassen.Check Else Standard.Check
+ bRadioBut(4) = Standard.IsChecked
+ bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
+ bRadioBut(6) = SeitenKacheln.IsChecked
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
@@ -910,145 +905,137 @@ testcase tToolsOptionsDrawPrint (sApplication as string)
ToolsOptions
hToolsOptions (sApplication,"Print")
- Standard.Check
- If ( irgendwas(1) = Seitenname.IsChecked ) Then WarnLog "Pagename state changed"
- If ( irgendwas(2) = Datum.IsChecked ) Then WarnLog "Date state changed"
- If ( irgendwas(3) = Zeit.IsChecked ) Then WarnLog "Time state changed"
- If ( irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked ) Then WarnLog "Hidden Pages state changed"
+ Standard.Check
+ If ( irgendwas(1) = Seitenname.IsChecked ) Then WarnLog "Pagename state changed"
+ If ( irgendwas(2) = Datum.IsChecked ) Then WarnLog "Date state changed"
+ If ( irgendwas(3) = Zeit.IsChecked ) Then WarnLog "Time state changed"
+ If ( irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked ) Then WarnLog "Hidden Pages state changed"
- Prospekt.Check
- If ( irgendwas(5) = Vorderseite.IsChecked ) Then WarnLog "Brochure Front state changed"
- If ( irgendwas(6) = Rueckseite.IsChecked ) Then WarnLog "Brochure Back state changed"
+ Prospekt.Check
+ If ( irgendwas(5) = Vorderseite.IsChecked ) Then WarnLog "Brochure Front state changed"
+ If ( irgendwas(6) = Rueckseite.IsChecked ) Then WarnLog "Brochure Back state changed"
- If ( irgendwas(7) = AusDruckereinstellung.IsChecked ) Then WarnLog "Paper Tray From Printer Settings state changed"
+ If ( irgendwas(7) = AusDruckereinstellung.IsChecked ) Then WarnLog "Paper Tray From Printer Settings state changed"
- If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked ) Then WarnLog "Quality Default state changed"
- If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality Grayscale state changed"
- If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality Black & White state changed"
- If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page Options Default state changed"
- If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page Options Fit to Page state changed"
- If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page Options Tile Pages state changed"
+ If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked ) Then WarnLog "Quality Default state changed"
+ If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality Grayscale state changed"
+ If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality Black & White state changed"
+ If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page Options Default state changed"
+ If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page Options Fit to Page state changed"
+ If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page Options Tile Pages state changed"
printlog "all UnCheck -> o"
- Standard.Check
- Seitenname.UnCheck
- Datum.UnCheck
- Zeit.UnCheck
- AusgeblendeteSeitenDrucken.UnCheck
-
- Prospekt.Check
- Vorderseite.UnCheck
- Rueckseite.UnCheck
-
- AusDruckereinstellung.UnCheck
-
- if (Graustufen.IsChecked = True) Then SchwarzWeiss.Check Else Graustufen.Check
- bTempRadioBut(1) = StandardAusgabe.IsChecked
- bTempRadioBut(2) = Graustufen.IsChecked
- bTempRadioBut(3) = SchwarzWeiss.IsChecked
- if (AnSeitengroesseAnpassen.IsChecked = True) Then SeitenKacheln.Check Else AnSeitengroesseAnpassen.Check
- bRadioBut(4) = Standard.IsChecked
- bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
- bRadioBut(6) = SeitenKacheln.IsChecked
-
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
-
- printlog "check if all UnChecked"
- ToolsOptions
- hToolsOptions (sApplication,"Print")
-
- Standard.Check
- If Seitenname.IsChecked Then WarnLog "Print: Page Name x"
- If Datum.IsChecked Then WarnLog "Print: Date x"
- If Zeit.IsChecked Then WarnLog "Print: Time x"
- If AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden Pages x"
-
- Prospekt.Check
- If Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front x"
- If Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back x"
+ Standard.Check
+ Seitenname.UnCheck
+ Datum.UnCheck
+ Zeit.UnCheck
+ AusgeblendeteSeitenDrucken.UnCheck
- If AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings x"
+ Prospekt.Check
+ Vorderseite.UnCheck
+ Rueckseite.UnCheck
- If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed"
- If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed"
- If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed"
- If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed"
- If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed"
- If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile Pages state changed"
+ AusDruckereinstellung.UnCheck
- Printlog "all Check -> x"
+ if (Graustufen.IsChecked = True) Then SchwarzWeiss.Check Else Graustufen.Check
+ bTempRadioBut(1) = StandardAusgabe.IsChecked
+ bTempRadioBut(2) = Graustufen.IsChecked
+ bTempRadioBut(3) = SchwarzWeiss.IsChecked
+ if (AnSeitengroesseAnpassen.IsChecked = True) Then SeitenKacheln.Check Else AnSeitengroesseAnpassen.Check
+ bRadioBut(4) = Standard.IsChecked
+ bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
+ bRadioBut(6) = SeitenKacheln.IsChecked
- Standard.Check
- Seitenname.Check
- Datum.Check
- Zeit.Check
- AusgeblendeteSeitenDrucken.Check
-
- Prospekt.Check
- Vorderseite.Check
- Rueckseite.Check
-
- AusDruckereinstellung.Check
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- if (SchwarzWeiss.IsChecked = True) Then StandardAusgabe.Check Else SchwarzWeiss.Check
- bTempRadioBut(1) = StandardAusgabe.IsChecked
- bTempRadioBut(2) = Graustufen.IsChecked
- bTempRadioBut(3) = SchwarzWeiss.IsChecked
- if (SeitenKacheln.IsChecked = True) Then Standard.Check Else SeitenKacheln.Check
- bRadioBut(4) = Standard.IsChecked
- bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
- bRadioBut(6) = SeitenKacheln.IsChecked
+ printlog "check if all UnChecked"
+ ToolsOptions
+ hToolsOptions (sApplication,"Print")
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ Standard.Check
+ If Seitenname.IsChecked Then WarnLog "Print: Page Name x"
+ If Datum.IsChecked Then WarnLog "Print: Date x"
+ If Zeit.IsChecked Then WarnLog "Print: Time x"
+ If AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden Pages x"
+ Prospekt.Check
+ If Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front x"
+ If Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back x"
+ If AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings x"
+ If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed"
+ If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed"
+ If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed"
+ If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed"
+ If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed"
+ If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile Pages state changed"
+
+ Printlog "all Check -> x"
+ Standard.Check
+ Seitenname.Check
+ Datum.Check
+ Zeit.Check
+ AusgeblendeteSeitenDrucken.Check
+ Prospekt.Check
+ Vorderseite.Check
+ Rueckseite.Check
+ AusDruckereinstellung.Check
+ if (SchwarzWeiss.IsChecked = True) Then StandardAusgabe.Check Else SchwarzWeiss.Check
+ bTempRadioBut(1) = StandardAusgabe.IsChecked
+ bTempRadioBut(2) = Graustufen.IsChecked
+ bTempRadioBut(3) = SchwarzWeiss.IsChecked
+ if (SeitenKacheln.IsChecked = True) Then Standard.Check Else SeitenKacheln.Check
+ bRadioBut(4) = Standard.IsChecked
+ bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
+ bRadioBut(6) = SeitenKacheln.IsChecked
- printlog "check if all Checked"
- ToolsOptions
- hToolsOptions (sApplication,"Print")
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- Standard.Check
- If True <> Seitenname.IsChecked Then WarnLog "Print: Page name o"
- If True <> Datum.IsChecked Then WarnLog "Print: Date o"
- If True <> Zeit.IsChecked Then WarnLog "Print: Time o"
- If True <> AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden pages o"
+ printlog "check if all Checked"
+ ToolsOptions
+ hToolsOptions (sApplication,"Print")
- Prospekt.Check
- If True <> Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front o"
- If True <> Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back o"
+ Standard.Check
+ If True <> Seitenname.IsChecked Then WarnLog "Print: Page name o"
+ If True <> Datum.IsChecked Then WarnLog "Print: Date o"
+ If True <> Zeit.IsChecked Then WarnLog "Print: Time o"
+ If True <> AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden pages o"
- If True <> AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings o"
+ Prospekt.Check
+ If True <> Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front o"
+ If True <> Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back o"
- If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed"
- If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed"
- If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed"
- If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed"
- If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed"
- If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile pages state changed"
+ If True <> AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings o"
- printlog "restore states"
+ If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed"
+ If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed"
+ If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed"
+ If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed"
+ If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed"
+ If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile pages state changed"
- Standard.Check
- If ( irgendwas(1) = TRUE ) Then Seitenname.Check Else Seitenname.UnCheck
- If ( irgendwas(2) = TRUE ) Then Datum.Check Else Datum.UnCheck
- If ( irgendwas(3) = TRUE ) Then Zeit.Check Else Zeit.UnCheck
- If ( irgendwas(4) = TRUE ) Then AusgeblendeteSeitenDrucken.Check Else AusgeblendeteSeitenDrucken.UnCheck
+ printlog "restore states"
- Prospekt.Check
- If ( irgendwas(5) = TRUE ) Then Vorderseite.Check Else Vorderseite.UnCheck
- If ( irgendwas(6) = TRUE ) Then Rueckseite.Check Else Rueckseite.UnCheck
+ Standard.Check
+ If ( irgendwas(1) = TRUE ) Then Seitenname.Check Else Seitenname.UnCheck
+ If ( irgendwas(2) = TRUE ) Then Datum.Check Else Datum.UnCheck
+ If ( irgendwas(3) = TRUE ) Then Zeit.Check Else Zeit.UnCheck
+ If ( irgendwas(4) = TRUE ) Then AusgeblendeteSeitenDrucken.Check Else AusgeblendeteSeitenDrucken.UnCheck
- If ( irgendwas(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck
+ Prospekt.Check
+ If ( irgendwas(5) = TRUE ) Then Vorderseite.Check Else Vorderseite.UnCheck
+ If ( irgendwas(6) = TRUE ) Then Rueckseite.Check Else Rueckseite.UnCheck
- If ( bRadioBut(1) = TRUE ) Then StandardAusgabe.Check
- If ( bRadioBut(2) = TRUE ) Then Graustufen.Check
- If ( bRadioBut(3) = TRUE ) Then SchwarzWeiss.Check
- Standard.Check
+ If ( irgendwas(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ If ( bRadioBut(1) = TRUE ) Then StandardAusgabe.Check
+ If ( bRadioBut(2) = TRUE ) Then Graustufen.Check
+ If ( bRadioBut(3) = TRUE ) Then SchwarzWeiss.Check
+ Standard.Check
- hCloseDocument
-endcase 'tToolsOptionsDrawPrint
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ hCloseDocument
+endcase 'tToolsOptionsDrawPrint \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/global/id_opt_2.inc b/testautomation/graphics/required/includes/global/id_opt_2.inc
index 8d38b2b9d..0d2f050f4 100644
--- a/testautomation/graphics/required/includes/global/id_opt_2.inc
+++ b/testautomation/graphics/required/includes/global/id_opt_2.inc
@@ -37,15 +37,15 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
dim iCount2 as integer
dim sUnitOptions as string
dim sUnitDialog as string
-
+
hNewDocument
- sleep 1
+ sleep 1
ToolsOptions
hToolsOptions (sApplication,"General")
iCount2 = Masseinheit.GetSelIndex
printlog "current measurement unit is: " & iCount2
iCount = Masseinheit.GetItemCount
-
+
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
printlog "----------------------"
@@ -56,14 +56,11 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
for i=1 to iCount
ToolsOptions
hToolsOptions (sApplication,"General")
-
Masseinheit.select i
sUnitOptions = GetMeasUnit(Tabulatorabstand.getText) ' (1)
printlog "(" + i + "/" + iCount + "): '" + Masseinheit.getSelText + "' - " + sUnitOptions + " (1)"
-
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
-
Format3D_Effects
Kontext "Drei_D_Effekte"
Geometrie.Click
@@ -74,7 +71,6 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Depth:'" + getMeasUnit(Tiefe.getText) + "' (3)"
endif
Drei_D_Effekte.close
-
FormatParagraph
Kontext
Messagebox.SetPage TabEinzuegeUndAbstaende
@@ -86,9 +82,8 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Vonlinks:'" + getMeasUnit(Vonlinks.getText) + "' Paragraph"
endif
TabEinzuegeUndAbstaende.cancel
-
next i
-
+
printlog "Setting back measurement to " & iCount2
ToolsOptions
hToolsOptions (sApplication,"General")
@@ -97,4 +92,4 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
ExtrasOptionenDlg.OK
hCloseDocument
-endcase 'tToolsOptionsMeasurementUnit
+endcase 'tToolsOptionsMeasurementUnit \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc
index b8b5a6330..b89264715 100644
--- a/testautomation/graphics/required/includes/impress/im_003_.inc
+++ b/testautomation/graphics/required/includes/impress/im_003_.inc
@@ -130,7 +130,9 @@ testcase tiViewPanes
hMenuSelectNr (4)
endcase 'tiViewPanes
+
'---------------------------------------------------------
+
testcase tiViewMasterView
printlog "open application"
Call hNewDocument
@@ -150,7 +152,9 @@ testcase tiViewMasterView
printlog "close application "
Call hCloseDocument
endcase 'tiViewMasterView
+
'---------------------------------------------------------
+
testcase tiViewSlideMaster
printlog "open application with : File->Autopilot->Presentation; OK; OK "
@@ -203,7 +207,9 @@ testcase tiViewSlideMaster
Call hCloseDocument
endcase 'tiViewSlideMaster
+
'--------------------------------------------------------
+
testcase tiViewToolbar_1
const DEFAULT_DELAY = 3
@@ -214,7 +220,6 @@ testcase tiViewToolbar_1
dim i as integer
TestFile = ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-
printlog "open application "
Call hNewDocument
Call sSelectEmptyLayout
@@ -222,13 +227,10 @@ testcase tiViewToolbar_1
hUseAsyncSlot( "EditSelectAll" )
Kontext "DocumentImpress"
DocumentImpress.typeKeys("<DELETE>",true)
-
printlog "use the empty layout"
call sSelectEmptyLayout
-
printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp "
hUseAsyncSlot( "InsertGraphicsFromFile" )
-
Kontext "GrafikEinfuegenDlg"
if ( GrafikEinfuegenDlg.exists( DEFAULT_DELAY ) ) then
Dateiname.SetText( TestFile )
@@ -275,4 +277,4 @@ testcase tiViewToolbar_1
printlog "close application "
Call hCloseDocument
-endcase 'tiViewToolbar_1
+endcase 'tiViewToolbar_1 \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/impress/im_005_.inc b/testautomation/graphics/required/includes/impress/im_005_.inc
index 146d37c0f..f0703913e 100644
--- a/testautomation/graphics/required/includes/impress/im_005_.inc
+++ b/testautomation/graphics/required/includes/impress/im_005_.inc
@@ -43,20 +43,16 @@ testcase tiFormatModifyLayout
printlog "open application "
Call hNewDocument
-
printlog( "Format/Page" )
FormatPage
-
Kontext "SeitenLayout"
if ( SeitenLayout.exists( 2 ) ) then
DialogTest ( SeitenLayout )
-
printlog "cancel dialog 'Page Setup' "
hCloseDialog( SeitenLayout, "Cancel" )
else
warnlog( "Dialog <SeitenLayout> did not open" )
endif
-
printlog "close application"
Call hCloseDocument
diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc
index 68d271e30..67a63f30d 100644
--- a/testautomation/graphics/required/includes/impress/im_007_.inc
+++ b/testautomation/graphics/required/includes/impress/im_007_.inc
@@ -95,9 +95,10 @@ testcase tSlideShowSlideShow
endcatch
printlog "close application "
Call hCloseDocument
-
endcase 'tSlideShowSlideShow
+
'-------------------------------------------------------------------------------
+
testcase tSlideShowRehearseTimings
goto endsub
@@ -139,11 +140,11 @@ testcase tSlideShowRehearseTimings
sleep 3
printlog "close application "
Call hCloseDocument
-
endcase 'tSlideShowRehearseTimings
+
'-------------------------------------------------------------------------------
-testcase tSlideShowSlideShowSettings
+testcase tSlideShowSlideShowSettings
printlog "open application "
Call hNewDocument
sleep 2
@@ -270,11 +271,11 @@ testcase tSlideShowCustomSlideShow
endif
printlog "close application "
Call hCloseDocument
-
endcase 'tSlideShowCustomSlideShow
+
'------------------------------------------------------------------------------
-testcase tSlideShowSlideTransition
+testcase tSlideShowSlideTransition
dim i as integer
dim a as integer
dim iCount as integer
@@ -375,7 +376,9 @@ testcase tSlideShowSlideTransition
Call hCloseDocument
endcase 'tSlideShowSlideTransition
+
'-------------------------------------------------------------------------------
+
testcase tSlideShowShowHideSlide
printlog "open application "
@@ -392,7 +395,9 @@ testcase tSlideShowShowHideSlide
SlideShowShowSlide
printlog "close application "
Call hCloseDocument
-endcase
+endcase 'tSlideShowShowHideSlide
+
+'-------------------------------------------------------------------------------
testcase tSlideShowAnimation
printlog "open application "
@@ -478,9 +483,10 @@ testcase tSlideShowAnimation
Call hCloseDocument
endcase 'tSlideShowShowHideSlide
+
'-------------------------------------------------------------------------------
-testcase tSlideShowCustomAnimation
+testcase tSlideShowCustomAnimation
dim bError as boolean
printlog "open application"
@@ -641,7 +647,9 @@ testcase tSlideShowCustomAnimation
Call hCloseDocument
endcase 'tSlideShowCustomAnimation
+
'-------------------------------------------------------------------------------
+
testcase tSlideShowInteraction
printlog "open application "
@@ -732,4 +740,4 @@ testcase tSlideShowInteraction
printlog "close application "
Call hCloseDocument
-endcase 'tSlideShowInteraction
+endcase 'tSlideShowInteraction \ No newline at end of file
diff --git a/testautomation/graphics/required/includes/impress/im_011_.inc b/testautomation/graphics/required/includes/impress/im_011_.inc
index 2c505f5fa..28e58ee2e 100644
--- a/testautomation/graphics/required/includes/impress/im_011_.inc
+++ b/testautomation/graphics/required/includes/impress/im_011_.inc
@@ -177,4 +177,4 @@ testcase tiDiaLeiste
Call hCloseDocument
sleep 2
-endcase 'tiDiaLeiste
+endcase 'tiDiaLeiste \ No newline at end of file
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-22 07:09:57 +0000