summaryrefslogtreecommitdiff
path: root/testautomation/graphics/tools/id_tools_2.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/tools/id_tools_2.inc')
-rw-r--r--testautomation/graphics/tools/id_tools_2.inc971
1 files changed, 451 insertions, 520 deletions
diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc
index 681a5ec7161a..e2d1a1497e9a 100644
--- a/testautomation/graphics/tools/id_tools_2.inc
+++ b/testautomation/graphics/tools/id_tools_2.inc
@@ -31,58 +31,6 @@
'*
'\******************************************************************************
-'Subs:
-' #1 sFileExport
-' #1 callAutocorrectOptions
-' #1 sCheckCheck
-' #1 sCheckUnderlined
-' #1 sCheckSupperscript
-' #1 sCheckDash
-' #1 sPrintCheckOrder
-' #1 writertest
-' #1 calctest
-' #1 tClipboardFromDrawTest
-' #1 Select_Copy
-' #1 SaveMeasurementSetFirst
-' #1 MeasurementSetFirst
-' #1 ResetMeasurement
-' #1 SetKontextApplication
-' #1 hSetSpellHypLanguage
-' #1 hTBOtypeInDoc
-' #1 Position_Vergleichen
-' #1 g_demoguide
-' #1 sFormatTextDrawAnimation
-' #1 mouseclickinpresentation
-' #1 im_002_
-' #1 im_003_
-' #1 im_004_
-' #1 im_005_
-' #1 im_007_
-' #1 im_011_
-' #1 D_002_
-' #1 D_003_
-' #1 D_005_
-' #1 d_007
-' #1 hOpenGallery
-' #1 LoadGraphic
-' #1 CheckGraphic
-' #1 GetOnlyGraphics
-' #1 tSettingsToCM
-' #1 tResetSettings
-' #1 id_001
-' #1 id_002
-' #1 id_003
-' #1 id_004
-' #1 id_005
-' #1 id_006
-' #1 id_007
-' #1 id_008
-' #1 id_009
-' #1 id_011
-' #1 hWalkTheStyles
-
-'\*****************************************************************
-
sub sFileExport
printlog " just exporting is done in qatesttool/framework/first test: 'tGraphicExport' but there is no loading, "
@@ -90,11 +38,11 @@ sub sFileExport
Dim ExZaehler as Integer
Dim ExPath as String
Dim Liste( 50 ) as String
-
- if (gApplication = "IMPRESS") then
- ExtensionString = "odp"
+
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "odp"
else
- ExtensionString = "odg"
+ ExtensionString = "odg"
end if
printlog "- all files are saved in [StarOfficePath]/user/work/[application]/export "
@@ -102,19 +50,19 @@ sub sFileExport
OutputGrafikTBO = ExPath & "expo"
Printlog "Create the export-dir for the graphics ( + ExPath + )"
try
- app.mkDir ( ExPath )
- ExZaehler = GetFileList ( ExPath , "*.*" , Liste() )
- if ExZaehler <> 0 then
- Printlog "The export-dir exists. The test want to delete all Files ( " + ExZaehler + " )!"
- if KillFileList ( Liste() ) = FALSE then
- Warnlog "Not all files can be deleted. " + ListCount ( Liste() ) + " files exists!"
- end if
- end if
+ app.mkDir ( ExPath )
+ ExZaehler = GetFileList ( ExPath , "*.*" , Liste() )
+ if ExZaehler <> 0 then
+ Printlog "The export-dir exists. The test want to delete all Files ( " + ExZaehler + " )!"
+ if KillFileList ( Liste() ) = FALSE then
+ Warnlog "Not all files can be deleted. " + ListCount ( Liste() ) + " files exists!"
+ end if
+ end if
catch
- Warnlog "An error at creating the export-dir, the test ends!"
- exit sub
+ Warnlog "An error at creating the export-dir, the test ends!"
+ exit sub
endcatch
-
+
printlog "+ open the test document qatesttool/graphics/required/input/graphicexport.od ? ] "
end sub
@@ -134,22 +82,22 @@ sub sCheckCheck (i, Pruefung$, bEnabled)
hTextrahmenErstellen (Pruefung$,20,20,60,40)
select case i
-' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA
- case 5: bEnabled 'sCheckUnderlined (bEnabled)
- case 6: sCheckDash (bEnabled)
- case 8: sCheckSupperscript (bEnabled)
- case else:
- hTypeKeys "<Home><Shift End>"
- EditCopy
- if (GetClipboardText = Pruefung$) then ' not replaced
- if bEnabled then ' not as expected
- warnlog "- replacement failed"
- endif
- else ' replaced
- if not bEnabled then ' not as expected
- warnlog "- replacement failed : '" + Pruefung$ + "' - '" + GetClipboardText + "'"
- endif
+ ' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA
+ case 5: bEnabled 'sCheckUnderlined (bEnabled)
+ case 6: sCheckDash (bEnabled)
+ case 8: sCheckSupperscript (bEnabled)
+ case else:
+ hTypeKeys "<Home><Shift End>"
+ EditCopy
+ if (GetClipboardText = Pruefung$) then ' not replaced
+ if bEnabled then ' not as expected
+ warnlog "- replacement failed"
endif
+ else ' replaced
+ if not bEnabled then ' not as expected
+ warnlog "- replacement failed : '" + Pruefung$ + "' - '" + GetClipboardText + "'"
+ endif
+ endif
end select
hTypeKeys "<Home><Shift End><Delete>"
@@ -207,65 +155,65 @@ end sub
'-------------------------------------------------------------------------------
sub sPrintCheckOrder (optional bcheck as boolean)
- dim sTemp as string
- dim sTemp2 as string
- dim i as integer
- printlog " deselect all "
- Printlog "-----------------------------------"
- printlog " select in default order and take Position X in mind ;-) "
- hTypeKeys ("<escape><escape>")
- for i = 1 to 3
- hTypeKeys ("<TAB>")
- sTemp = fGetPositionX()
- Printlog " - " + i +": " + sTemp
- if ((isMissing(bcheck) <> FALSE) AND (bcheck = TRUE)) then
- Select Case i
+ dim sTemp as string
+ dim sTemp2 as string
+ dim i as integer
+ printlog " deselect all "
+ Printlog "-----------------------------------"
+ printlog " select in default order and take Position X in mind ;-) "
+ hTypeKeys ("<escape><escape>")
+ for i = 1 to 3
+ hTypeKeys ("<TAB>")
+ sTemp = fGetPositionX()
+ Printlog " - " + i +": " + sTemp
+ if ((isMissing(bcheck) <> FALSE) AND (bcheck = TRUE)) then
+ Select Case i
Case 1: sTemp2 = Ueber_Text_1
Case 2: sTemp2 = Ueber_Text_2
Case 3: sTemp2 = Ueber_Text_3
- End Select
- if sTemp <> sTemp2 then
- warnlog " + " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
- end if
- endif
- next i
- hTypeKeys ("<escape><escape>")
- Printlog "-----------------------------------"
+ End Select
+ if sTemp <> sTemp2 then
+ warnlog " + " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
+ end if
+ endif
+ next i
+ hTypeKeys ("<escape><escape>")
+ Printlog "-----------------------------------"
end sub
'--------------------------- Tests for Writer ----------------------------------
sub writertest
- try
- call Make_And_Check_Formatted_Text_Line_From_Application
- catch
- warnlog "Something went wrong with testing writertest"
- endcatch
-
- try
- call Make_Rectangle_From_Application
- call Full_test_Draw
- call Full_test_Impress
- call Full_test_Writer
- call Full_test_Calc
- catch
- warnlog "something wrong with testing writertest"
- endcatch
+ try
+ call Make_And_Check_Formatted_Text_Line_From_Application
+ catch
+ warnlog "Something went wrong with testing writertest"
+ endcatch
+
+ try
+ call Make_Rectangle_From_Application
+ call Full_test_Draw
+ call Full_test_Impress
+ call Full_test_Writer
+ call Full_test_Calc
+ catch
+ warnlog "something wrong with testing writertest"
+ endcatch
end sub ' big one
'---------------------------- Tests for Calc -----------------------------------
sub calctest
-try
- call Make_Rectangle_From_Application
- call Full_test_Draw
- call Full_test_Impress
- call Full_test_Writer
- call Full_test_Calc
-catch
- warnlog "something wrong with calctest"
-endcatch
- printlog "currently no specific tests from Calc"
+ try
+ call Make_Rectangle_From_Application
+ call Full_test_Draw
+ call Full_test_Impress
+ call Full_test_Writer
+ call Full_test_Calc
+ catch
+ warnlog "something wrong with calctest"
+ endcatch
+ printlog "currently no specific tests from Calc"
end sub
'-------------------------------------------------------------------------------
@@ -274,146 +222,116 @@ sub tClipboardFromDrawTest
EnableQAErrors = false
FromApp2 = gApplication
printlog "gApplication = " + gApplication
+
+ select case( gApplication )
+ case "WRITER" : call writertest()
+ case "CALC" : call calctest()
+ case else : warnlog( "Unsupported gApplication provided: " & gApplication )
+ end select
- if gApplication = "WRITER" then
- call writertest
- exit sub
- end if
-
- if gApplication = "CALC" then
- call calctest
- exit sub
- end if
end sub
'-------------------------------------------------------------------------------
sub Select_Copy
- printlog " Select and copy "
- Sleep 10
- if gApplication = "DRAW" then
- EditSelectAll
- printlog " We just ran EditSelectAll - Application is Draw"
- end if
- if gApplication = "IMPRESS" then
- EditSelectAll
- printlog " We just ran EditSelectAll - Application is Impress"
- end if
- Sleep 2
- EditCopy
- Sleep 2
- printlog " Copied object"
+ hUseAsyncSlot( "EditSelectAll" )
+ hUseAsyncSlot( "EditCopy" )
+
end Sub
'-------------------------------------------------------------------------------
sub SaveMeasurementSetFirst
- if (gApplication = "DRAW") then
- sApplication = "DRAWING"
- elseIf (gApplication = "IMPRESS") then
- sApplication = "IMPRESS"
- elseIf (gApplication = "WRITER") then
- sApplication = "WRITER"
- elseIf (gApplication = "CALC") then
- sApplication = "CALC"
- endif
+ select case( gApplication )
+ case "DRAW" : sApplication = "DRAWING"
+ case "IMPRESS" : sApplication = "IMPRESS"
+ case "WRITER" : sApplication = "WRITER"
+ case "CALC" : sApplication = "CALC"
+ case else : printlog( "Provided gApplication is not supported: " & gApplication )
+ end select
+
printlog " - save states "
ToolsOptions
- hToolsOptions (sApplication,"General")
- ReferenceOld = Masseinheit.GetSelText
- Masseinheit.TypeKeys= "<HOME>" '(first entry)
- ReferenceNew = Masseinheit.GetSelText
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ hToolsOptions (sApplication,"General")
+ ReferenceOld = Masseinheit.GetSelText
+ Masseinheit.TypeKeys= "<HOME>" '(first entry)
+ ReferenceNew = Masseinheit.GetSelText
+ Kontext "ExtrasOptionenDlg"
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
+
end Sub
'-------------------------------------------------------------------------------
sub MeasurementSetFirst
dim f as integer
- if (gApplication = "DRAW") then
- sApplication = "DRAWING"
- elseIf (gApplication = "IMPRESS") then
- sApplication = "IMPRESS"
- elseIf (gApplication = "WRITER") then
- sApplication = "WRITER"
- elseIf (gApplication = "CALC") then
- sApplication = "CALC"
- endif
+
+ select case( gApplication )
+ case "DRAW" : sApplication = "DRAWING"
+ case "IMPRESS" : sApplication = "IMPRESS"
+ case "WRITER" : sApplication = "WRITER"
+ case "CALC" : sApplication = "CALC"
+ case else : printlog( "Provided gApplication is not supported: " & gApplication )
+ end select
+
ToolsOptions
- hToolsOptions (sApplication,"General")
- if Masseinheit.GetSelText <> ReferenceNew then 'find the right one.
+ hToolsOptions (sApplication,"General")
+ if Masseinheit.GetSelText <> ReferenceNew then 'find the right one.
Masseinheit.TypeKeys "<HOME>"
for f = 1 to Masseinheit.GetItemCount
if Masseinheit.GetSelText = ReferenceNew then
- i = Masseinheit.GetItemCount 'find the right one.
+ i = Masseinheit.GetItemCount 'find the right one.
else
- Masseinheit.TypeKeys "<DOWN>"
+ Masseinheit.TypeKeys "<DOWN>"
endif
next f
- endif
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ endif
+ Kontext "ExtrasOptionenDlg"
+ hCloseDialog( ExtrasOptionenDlg, "ok" )
+
end Sub
'-------------------------------------------------------------------------------
sub ResetMeasurement
dim f as integer
- if (gApplication = "DRAW") then
- sApplication = "DRAWING"
- elseIf (gApplication = "IMPRESS") then
- sApplication = "IMPRESS"
- elseIf (gApplication = "WRITER") then
- sApplication = "WRITER"
- elseIf (gApplication = "CALC") then
- sApplication = "CALC"
- endif
+
+ select case( gApplication )
+ case "DRAW" : sApplication = "DRAWING"
+ case "IMPRESS" : sApplication = "IMPRESS"
+ case "WRITER" : sApplication = "WRITER"
+ case "CALC" : sApplication = "CALC"
+ case else : printlog( "Provided gApplication is not supported: " & gApplication )
+ end select
+
printlog " - Reset states back to what they were before "
ToolsOptions
- hToolsOptions (sApplication,"General")
- if Masseinheit.GetSelText <> ReferenceOld then 'find the right one.
+ hToolsOptions (sApplication,"General")
+ if Masseinheit.GetSelText <> ReferenceOld then 'find the right one.
Masseinheit.TypeKeys "<HOME>"
for f = 1 to Masseinheit.GetItemCount
if Masseinheit.GetSelText = ReferenceOld then
- i = Masseinheit.GetItemCount 'find the right one.
+ i = Masseinheit.GetItemCount 'find the right one.
else
- Masseinheit.TypeKeys "<DOWN>"
+ Masseinheit.TypeKeys "<DOWN>"
endif
next f
- endif
- Kontext "ExtrasOptionenDlg"
+ endif
+ Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
end Sub
'-------------------------------------------------------------------------------
sub SetKontextApplication
- sleep 1
- Select Case gApplication
- Case "DRAW"
- Kontext "DocumentDraw"
- 'Printlog "gApplication / Kontext is now: DocumentDraw"
- sleep 1
- Case "IMPRESS"
- Kontext "DocumentImpress"
- 'Printlog "gApplication / Kontext is now is now: DocumentImpress"
- sleep 1
- Case "WRITER"
- Kontext "DocumentWriter"
- 'Printlog "gApplication / Kontext is now is now: DocumentWriter"
- sleep 1
- Case "CALC"
- Kontext "DocumentCalc"
- 'Printlog "gApplication / Kontext is now is now: DocumentCalc"
- sleep 1
- end select
- sleep 1
+
+ hSetDocumentContext() ' Global routine exists
+
end sub
'-------------------------------------------------------------------------------
sub hSetSpellHypLanguage
-printlog " select a language with a dictionary, used for spellcheck, thesaurus and hyphenation "
+ printlog " select a language with a dictionary, used for spellcheck, thesaurus and hyphenation "
dim sTrieit as string
' only for asian languages i need to set the default language for the current document to 'English(USA)'
@@ -450,7 +368,7 @@ printlog " select a language with a dictionary, used for spellcheck, thesaurus a
qaErrorLog "Sorry no spellbook found: id_tools.inc::hSetSpellHypLanguage"
endif
else
- printlog " if a Language is already defined in the textfile "
+ printlog " if a Language is already defined in the textfile "
printlog glLocale (4)
try
printlog " select it in section 'Default languages for document' listbox 'Western' "
@@ -466,11 +384,11 @@ printlog " select a language with a dictionary, used for spellcheck, thesaurus a
qaw = glLocale (4)
endcatch
endif
- try
- printlog "selected: '" + Westlich.GetSelText + "'"
- catch
- printlog "selected: '" + Asiatisch.GetSelText + "'"
- endcatch
+ try
+ printlog "selected: '" + Westlich.GetSelText + "'"
+ catch
+ printlog "selected: '" + Asiatisch.GetSelText + "'"
+ endcatch
Kontext "ExtrasOptionenDlg"
printlog "+ close dialog 'Options - ' with OK "
ExtrasOptionenDlg.OK
@@ -480,7 +398,7 @@ end sub
'-------------------------------------------------------------------------------
sub hTBOtypeInDoc
- hRechteckErstellen ( 10, 10, 30, 40 )
+ hRechteckErstellen ( 10, 10, 30, 40 )
end sub
'-------------------------------------------------------------------------------
@@ -501,9 +419,9 @@ sub Position_Vergleichen (Ueber_Text_1 as string,Ueber_Text_2 as string,Ueber_Te
if TabPositionAndSize.exists (5) then printlog "Yo!"
printlog "What?"
if Dummy_Text = Ueber_Text_1 then
- Printlog Ueber_Text_2
+ Printlog Ueber_Text_2
else
- warnlog Ueber_Text_3,": is: ", Dummy_Text,"; should be: ", Ueber_Text_1
+ warnlog Ueber_Text_3,": is: ", Dummy_Text,"; should be: ", Ueber_Text_1
end if
end sub
@@ -511,7 +429,7 @@ end sub
sub g_demoguide
printlog "------------------- g_demoguide.inc ------------------------"
-
+
call t_Introduction
call t_Interoperability
call t_DrawingEngine
@@ -538,107 +456,98 @@ end sub
'-------------------------------------------------------------------------------
sub mouseclickinpresentation
- Kontext "DocumentPresentation"
- autoexecute=false
- DocumentPresentation.MouseDown ( 50, 50 )
- printlog " switch slides using mouse clicks "
- DocumentPresentation.MouseUp ( 50, 50 )
- autoexecute=true
+ Kontext "DocumentPresentation"
+ autoexecute=false
+ DocumentPresentation.MouseDown ( 50, 50 )
+ printlog " switch slides using mouse clicks "
+ DocumentPresentation.MouseUp ( 50, 50 )
+ autoexecute=true
end sub
'-------------------------------------------------------------------------------
-sub im_002_
+sub im_002
+ printLog Chr(13) + "--------- im_002_ ---------- $Date: 2008-06-16 10:43:16 $ $Revision: 1.1 $ "
- printLog Chr(13) + "--------- im_002_ ---------- $Date: 2008-06-16 10:43:16 $ $Revision: 1.1 $ "
-
- Call tiEditDeleteSlide
+ Call tiEditDeleteSlide
end sub
'-------------------------------------------------------------------------------
-sub im_003_
-
- printLog Chr(13) + "--------- im_003_ ----------"
+sub im_003
+ printLog Chr(13) + "--------- im_003_ ----------"
Call tiViewMasterView
Call tiViewSlideMaster
Call tiViewPanes
-'TODO: TBO not necessary here, move to optional
+ 'TODO: TBO not necessary here, move to optional
Call tiViewToolbar_1
end sub
'-------------------------------------------------------------------------------
-sub im_004_
-
- printLog Chr(13) + "--------- im_004_ ----------"
+sub im_004
+ printLog Chr(13) + "--------- im_004_ ----------"
- Call tiInsertSlideExpandSummary
+ Call tiInsertSlideExpandSummary
end sub
'-------------------------------------------------------------------------------
-sub im_005_
+sub im_005
+ printLog Chr(13) + "--------- im_005_ ---------- "
- printLog Chr(13) + "--------- im_005_ ---------- "
-
- Call tiFormatModifyLayout ' impress only
+ Call tiFormatModifyLayout ' impress only
end sub
'-------------------------------------------------------------------------------
-sub im_007_
-
- printLog Chr(13) + "--------- im_007_ ---------- "
+sub im_007
+ printLog Chr(13) + "--------- im_007_ ---------- "
- Call tSlideShowSlideShow
- Call tSlideShowRehearseTimings
- Call tSlideShowSlideShowSettings
- Call tSlideShowCustomSlideShow
- Call tSlideShowSlideTransition
+ Call tSlideShowSlideShow
+ Call tSlideShowRehearseTimings
+ Call tSlideShowSlideShowSettings
+ Call tSlideShowCustomSlideShow
+ Call tSlideShowSlideTransition
-Call tSlideShowShowHideSlide
- Call tSlideShowAnimation
- Call tSlideShowCustomAnimation
- Call tSlideShowInteraction
+ Call tSlideShowShowHideSlide
+ Call tSlideShowAnimation
+ Call tSlideShowCustomAnimation
+ Call tSlideShowInteraction
end sub
'-------------------------------------------------------------------------------
-sub im_011_
-
- printLog Chr(13) + "--------- im_011_ ---------- "
+sub im_011
+ printLog Chr(13) + "--------- im_011_ ---------- "
- Call tiDiaLeiste ' only IMPRESS
+ Call tiDiaLeiste ' only IMPRESS
end sub
'-------------------------------------------------------------------------------
-sub D_002_
+sub D_002
+ printLog Chr(13) + "--------- D_002_ ---------- "
- printLog Chr(13) + "--------- D_002_ ---------- "
-
- Call tdEditCrossFading
- Call tdEditLayer
+ Call tdEditCrossFading
+ Call tdEditLayer
end sub
'-------------------------------------------------------------------------------
-sub D_003_
-
- printLog Chr(13) + "--------- D_003_ ---------- "
+sub D_003
+ printLog Chr(13) + "--------- D_003_ ---------- "
- call tdViewSlide
- call tdViewPagePane
+ call tdViewSlide
+ call tdViewPagePane
end sub
'-------------------------------------------------------------------------------
-sub D_005_
-
- printLog Chr(13) + "--------- D_005_ ---------- "
+sub D_005
+ printLog Chr(13) + "--------- D_005_ ---------- "
- call tiFormatLayer ' only in draw !!!!!
+ call tiFormatLayer ' only in draw !!!!!
end sub
'-------------------------------------------------------------------------------
sub d_007
- printLog Chr(13) + "--------- d_007 ---------- "
+ printLog Chr(13) + "--------- d_007 ---------- "
- call tdModifyRotate
+ call tdModifyRotate
end sub
'-------------------------------------------------------------------------------
@@ -648,10 +557,10 @@ sub hOpenGallery
ToolsGallery
WaitSlot (2000)
Kontext "Gallery"
- if Gallery.NotExists(2) then
- ToolsGallery
- WaitSlot (2000)
- end if
+ if Gallery.NotExists(2) then
+ ToolsGallery
+ WaitSlot (2000)
+ end if
end sub
'-------------------------------------------------------------------------
@@ -667,27 +576,27 @@ sub LoadGraphic ( sFile as String, bOK as Boolean ) as boolean
Kontext
Active.SetPage TabType
Kontext "TabType"
- OriginalSize.Click
- iW = Val ( makeNumOutOfText ( Width.GetText ) )
- iH = Val ( makeNumOutOfText ( Height.GetText )
- if instr ( sFile, "photo" ) <> 0 then
- iWMax = 22
- iHMax = 25
- else
- iWMax = 17
- iHMax = 25
- end if
- if iW > iWMax OR iH > iHMax then
- printlog sFile + " :"
- warnlog "Size is too big ( max should be '" + iWMax + "' cm* '" + iHMax + "'cm DinA4 with default borders ), but it is '" + iW + "' * '" + iH + "'"
- LoadGraphic = false
- end if
- TabType.OK
- sleep (1)
+ OriginalSize.Click
+ iW = Val ( makeNumOutOfText ( Width.GetText ) )
+ iH = Val ( makeNumOutOfText ( Height.GetText )
+ if instr ( sFile, "photo" ) <> 0 then
+ iWMax = 22
+ iHMax = 25
+ else
+ iWMax = 17
+ iHMax = 25
+ end if
+ if iW > iWMax OR iH > iHMax then
+ printlog sFile + " :"
+ warnlog "Size is too big ( max should be '" + iWMax + "' cm* '" + iHMax + "'cm DinA4 with default borders ), but it is '" + iW + "' * '" + iH + "'"
+ LoadGraphic = false
+ end if
+ TabType.OK
+ sleep (1)
Kontext "DocumentWriter"
- DocumentWriter.TypeKeys "<Delete>"
- sleep (1)
- bOK = TRUE
+ DocumentWriter.TypeKeys "<Delete>"
+ sleep (1)
+ bOK = TRUE
end sub
'-------------------------------------------------------------------------
@@ -715,30 +624,30 @@ end sub
'-------------------------------------------------------------------------
sub id_001
- printLog Chr(13) + "--------- id_001 ----------"
-
- qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
- call tiFilePassword
- call tiFileSaveAs
- call tiFileReload
- call tiFileVersion
- printlog " File->Send not possible to test, because extrnal prg get's called!"
- call tiFileTemplates
-' Call tiFileNew instead i call:
- call tmFileNewFromTemplate
- call tmFileOpen
- call tmFileClose
- call tmFileSave
- call tmFileSaveAs
- call tmFileExit
-
- call tmFileSaveAll
- call tmFileProperties
- call tdFileExport
- call tmFilePrinterSetting
- ' special cases
- ' Call AutoPilot 'inc\desktop\autopilo.inc
- call tmFileExit ' don't test because unpredictable behaviour
+ printLog Chr(13) + "--------- id_001 ----------"
+
+ qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
+ call tiFilePassword
+ call tiFileSaveAs
+ call tiFileReload
+ call tiFileVersion
+ printlog " File->Send not possible to test, because extrnal prg get's called!"
+ call tiFileTemplates
+ ' Call tiFileNew instead i call:
+ call tmFileNewFromTemplate
+ call tmFileOpen
+ call tmFileClose
+ call tmFileSave
+ call tmFileSaveAs
+ call tmFileExit
+
+ call tmFileSaveAll
+ call tmFileProperties
+ call tdFileExport
+ call tmFilePrinterSetting
+ ' special cases
+ ' Call AutoPilot 'inc\desktop\autopilo.inc
+ call tmFileExit ' don't test because unpredictable behaviour
end sub
'------------------------------------------------------------------------------
@@ -766,73 +675,91 @@ end sub
'-------------------------------------------------------------------------
sub id_003
- printLog Chr(13) + "--------- id_003 ----------"
+ printLog Chr(13) + "--------- id_003 ----------"
- call tiViewNavigator
- call tiViewZoom
- call tiViewToolbar
- Call tToolsCustomize 'global\required\include
- call tiViewDisplayQuality
- call tiViewLayer
- call tViewSnapLines
- call tViewGrid
+ call tiViewNavigator
+ call tiViewZoom
+ call tiViewToolbar
+ Call tToolsCustomize 'global\required\include
+ call tiViewDisplayQuality
+ call tiViewLayer
+ call tViewSnapLines
+ call tViewGrid
end sub
'-------------------------------------------------------------------------
sub id_004
- printLog Chr(13) + "--------- id_004 ----------"
+ printLog Chr(13) + "--------- id_004 ----------"
- call tiInsertSlide
- call tiInsertDuplicateSlide
+ call tiInsertSlide
+ call tiInsertDuplicateSlide
' v expand slide
' v summary slide
- call tiInsertField
- call tiInsertSpecialCharacter
- call tiInsertHyperlink
- call tiInsertScan
- call tiInsertGraphic
- call tiInsertObjectSound
- call tiInsertObjectVideo
- call tiInsertObjectSound
- call tiInsertObjectVideo
- call tiInsertChart
- call tiInsertObjectOLEObjects
- call tiInsertSpreadsheet
- call tiInsertFormula
- call tiInsertFloatingFrame
- call tiInsertFile
- call tiInsertPlugin
- call tiInsertSnappointLine
- call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
+ call tiInsertField
+ call tiInsertSpecialCharacter
+ call tiInsertHyperlink
+ call tiInsertScan
+ call tiInsertGraphic
+ call tiInsertObjectSound
+ call tiInsertObjectVideo
+ call tiInsertObjectSound
+ call tiInsertObjectVideo
+ call tiInsertChart
+ call tiInsertObjectOLEObjects
+ call tiInsertSpreadsheet
+ call tiInsertFormula
+ call tiInsertFloatingFrame
+ call tiInsertFile
+ call tiInsertPlugin
+ call tiInsertSnappointLine
+ call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
end sub
'------------------------------------------------------------------------------
sub id_005
- printLog Chr(13) + "--------- id_005 ----------"
-
- call tiFormatDefault
- call tiFormatLine
- call tdFormatArea
- call tiFormatText
- call tiFormatPositionAndSize
- call tiFormatCharacter
- call tiFormatControlForm
-' ^ Form
- call tiFormatDimensions
- call tiFormatConnector
- call tiFormat3D_Effects
- call tiFormatNumberingBullets
- call tiFormatCaseCharacter
- call tiFormatParagraph
- call tiFormatPage
- call tiFormatStylesAndFormatting
- call tiFormatStylesSlideDesign
- call tiFormatFontwork
- call tiFormatGroup
- printlog " format->group is also modify->group "
-' tiFormatLayer ' not in impress
+ printLog Chr(13) + "--------- id_005 ----------"
+
+ call tiFormatDefault
+ call tiFormatLine
+ call tdFormatArea
+ call tiFormatText
+ call tiFormatPositionAndSize
+ call tiFormatCharacter
+ call tiFormatControlForm
+ ' ^ Form
+ call tiFormatDimensions
+ call tiFormatConnector
+ call tiFormat3D_Effects
+ call tiFormatNumberingBullets
+ call tiFormatCaseCharacter
+ call tiFormatParagraph
+ call tiFormatPage
+ call tiFormatStylesAndFormatting
+ call tiFormatStylesSlideDesign
+ call tiFormatFontwork
+ call tiFormatGroup
+ printlog " format->group is also modify->group "
+ ' tiFormatLayer ' not in impress
+end sub
+
+'------------------------------------------------------------------------------
+sub id_006
+
+ printLog Chr(13) + "--------- id_006 ----------"
+
+ call tiToolsSpellchecking
+ call tiToolsSpellcheckingAutomatic
+ call tiToolsThesaurus
+ call tiToolsHyphenation
+ call tiToolsAutoCorrect
+ call tChineseTranslation
+ call tiToolsMacro
+ call tiToolsGallery
+ call tiToolsEyedropper
+ call tiToolsOptions ' get just called one time here...
+ Call tToolsOptionsTest ' global one
end sub
'-------------------------------------------------------------------------------
@@ -864,16 +791,16 @@ end sub
'-------------------------------------------------------------------------------
sub id_008
- printLog Chr(13) + "--------- id_008 ----------"
+ printLog Chr(13) + "--------- id_008 ----------"
- Call tiWindowNewWindow
- call tidWindow123
+ Call tiWindowNewWindow
+ call tidWindow123
end sub
'------------------------------------------------------------------------------
sub id_009
- printLog Chr(13) + "--------- id_009 ----------"
+ printLog Chr(13) + "--------- id_009 ----------"
call tCheckIfTheHelpExists
Call tmHelpContents
@@ -889,165 +816,169 @@ sub id_011
printLog Chr(13) + "--------- id_011 ----------"
- call tdBezierToolbar
+ call tdBezierToolbar
call tiDrawObjectBar
call tiTextToolbar
call tiGraphicsObjectBar
call tiGluepointToolbar
- end sub
+end sub
'-------------------------------------------------------------------------------'
sub hWalkTheStyles (optional a as integer,optional b as integer)
dim i as integer
-
+
if isMissing (a) then a=1
if isMissing (b) then b=2
i=1
if a <= i AND i <= b then
- Kontext
- printlog " switch to tabpage 'Line' "
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- Call DialogTest ( TabLinie )
- Kontext
- printlog " switch to tabpage 'Area' "
- Messagebox.SetPage TabArea
- kontext "TabArea"
- Call DialogTest ( TabArea )
- printlog " select radio button 'none' "
- NoFill.Check
- Call DialogTest ( TabArea, 1 )
- printlog " select radio button 'color' "
- Color.Check
- Call DialogTest ( TabArea, 2 )
- printlog " select radio button 'gradient' "
- Gradient.Check
- Call DialogTest ( TabArea, 3 )
- printlog " select radio button 'hatching' "
- Hatching.Check
- Call DialogTest ( TabArea, 4 )
- printlog " select radio button 'bitmap' "
- Bitmap.Check
- Call DialogTest ( TabArea, 5 )
- Kontext
- printlog " switch to tabpage 'shadowing' "
- Messagebox.SetPage TabSchatten
- kontext "TabSchatten"
- printlog " check 'use shadow' "
- Anzeigen.check
- Call DialogTest ( TabSchatten )
- Kontext
- printlog " switch to tabpage 'Transparency' "
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- printlog " check 'No transparency' "
- KeineTransparenz.Check
- printlog " check 'Transparency' "
- LineareTransparenz.Check
- printlog " check 'Gradient' "
- Transparenzverlauf.Check
- Kontext
- printlog " switch to tabpage 'Font' "
- Messagebox.SetPage TabFont
- kontext "TabFont"
- Call DialogTest ( TabFont )
- Kontext
- printlog " switch to tabpage 'Font Effect' "
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- Kontext
- printlog " switch to tabpage 'indents & spacing' "
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- Call DialogTest ( TabEinzuegeUndAbstaende )
+ Kontext
+ printlog " switch to tabpage 'Line' "
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Call DialogTest ( TabLinie )
+ Kontext
+ printlog " switch to tabpage 'Area' "
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ Call DialogTest ( TabArea )
+ printlog " select radio button 'none' "
+ NoFill.Check
+ Call DialogTest ( TabArea, 1 )
+ printlog " select radio button 'color' "
+ Color.Check
+ Call DialogTest ( TabArea, 2 )
+ printlog " select radio button 'gradient' "
+ Gradient.Check
+ Call DialogTest ( TabArea, 3 )
+ printlog " select radio button 'hatching' "
+ Hatching.Check
+ Call DialogTest ( TabArea, 4 )
+ printlog " select radio button 'bitmap' "
+ Bitmap.Check
+ Call DialogTest ( TabArea, 5 )
+ Kontext
+ printlog " switch to tabpage 'shadowing' "
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+ printlog " check 'use shadow' "
+ Anzeigen.check
+ Call DialogTest ( TabSchatten )
+ Kontext
+ printlog " switch to tabpage 'Transparency' "
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ printlog " check 'No transparency' "
+ KeineTransparenz.Check
+ printlog " check 'Transparency' "
+ LineareTransparenz.Check
+ printlog " check 'Gradient' "
+ Transparenzverlauf.Check
+ Kontext
+ printlog " switch to tabpage 'Font' "
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Call DialogTest ( TabFont )
+ Kontext
+ printlog " switch to tabpage 'Font Effect' "
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ printlog " switch to tabpage 'indents & spacing' "
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ Call DialogTest ( TabEinzuegeUndAbstaende )
endif
i=2
if a <= i AND i <= b then
- Kontext
- printlog " switch to tabpage 'Organize' "
- Messagebox.SetPage TabVerwalten
- kontext "TabVerwalten"
- Call DialogTest ( TabVerwalten )
- Kontext
- printlog " switch to tabpage 'text' "
- Messagebox.SetPage TabText
- Kontext "TabText"
- Call DialogTest ( TabText )
- Kontext
- printlog " switch to tabpage 'text animation' "
- Messagebox.SetPage TabLauftext
- Kontext "TabLauftext"
- Call DialogTest ( TabLauftext )
- Kontext
- printlog " switch to tabpage 'dimension' "
- Messagebox.SetPage TabBemassung
- Kontext "TabBemassung"
- Call DialogTest ( TabBemassung )
- Kontext
- printlog " switch to tabpage 'connector' "
- Messagebox.setpage TabVerbinder
- Kontext "TabVerbinder"
- Call Dialogtest ( TabVerbinder )
- Kontext
- printlog " switch to tabpage 'alignment' "
- Messagebox.setpage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- Links.Check
- Rechts.Check
- Zentriert.Check
- Blocksatz.Check
- Kontext
- printlog " switch to tabpage 'Tabs' "
- Messagebox.setpage TabTabulator
- Kontext "TabTabulator"
- printlog " click 'new' "
- Neu.click
- printlog " ' MAYBE CHECK COUNT OF THIS ?? Position svx:MetricBox:RID_SVXPAGE_TABULATOR:ED_TABPOS "
- printlog " click 'delete all' "
- AlleLoeschen.click
- printlog " click 'new' "
- Neu.click
- printlog " click 'delete' "
- Loeschen.click
+ Kontext
+ printlog " switch to tabpage 'Organize' "
+ Messagebox.SetPage TabVerwalten
+ kontext "TabVerwalten"
+ Call DialogTest ( TabVerwalten )
+ Kontext
+ printlog " switch to tabpage 'text' "
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ Call DialogTest ( TabText )
+ Kontext
+ printlog " switch to tabpage 'text animation' "
+ Messagebox.SetPage TabLauftext
+ Kontext "TabLauftext"
+ Call DialogTest ( TabLauftext )
+ Kontext
+ printlog " switch to tabpage 'dimension' "
+ Messagebox.SetPage TabBemassung
+ Kontext "TabBemassung"
+ Call DialogTest ( TabBemassung )
+ Kontext
+ printlog " switch to tabpage 'connector' "
+ Messagebox.setpage TabVerbinder
+ Kontext "TabVerbinder"
+ Call Dialogtest ( TabVerbinder )
+ Kontext
+ printlog " switch to tabpage 'alignment' "
+ Messagebox.setpage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ Links.Check
+ Rechts.Check
+ Zentriert.Check
+ Blocksatz.Check
+ Kontext
+ printlog " switch to tabpage 'Tabs' "
+ Messagebox.setpage TabTabulator
+ Kontext "TabTabulator"
+ printlog " click 'new' "
+ Neu.click
+ printlog " ' MAYBE CHECK COUNT OF THIS ?? Position svx:MetricBox:RID_SVXPAGE_TABULATOR:ED_TABPOS "
+ printlog " click 'delete all' "
+ AlleLoeschen.click
+ printlog " click 'new' "
+ Neu.click
+ printlog " click 'delete' "
+ Loeschen.click
endif
i=3
if a <= i AND i <= b then
- Kontext
- printlog " switch to tabpage 'Bullets' "
- Messagebox.SetPage TabBullet
- Kontext "TabBullet"
- sleep 1
- Call DialogTest (TabBullet)
- sleep 1
- Kontext
- printlog " switch to tabpage 'Numbering Type' "
- Messagebox.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- sleep 1
- Call DialogTest (TabNumerierungsart)
- sleep 1
- Kontext
- printlog " switch to tabpage 'Graphics' "
- Messagebox.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Call DialogTest (TabGrafiken)
- sleep 1
- Kontext
- printlog " switch to tabpage 'Customize' "
- Messagebox.SetPage TabOptionenNumerierung
- Kontext "TabOptionenNumerierung"
- sleep 1
- Call DialogTest (TabOptionenNumerierung)
- sleep 1
+ Kontext
+ printlog " switch to tabpage 'Bullets' "
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Call DialogTest (TabBullet)
+ sleep 1
+ Kontext
+ printlog " switch to tabpage 'Numbering Type' "
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Call DialogTest (TabNumerierungsart)
+ sleep 1
+ Kontext
+ printlog " switch to tabpage 'Graphics' "
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Call DialogTest (TabGrafiken)
+ sleep 1
+ Kontext
+ printlog " switch to tabpage 'Customize' "
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ Call DialogTest (TabOptionenNumerierung)
+ sleep 1
endif
end sub
'---------------------------------------------------------------------------------------
sub sSelectEmptyLayout
if gApplication = "IMPRESS" then
+ Kontext "DocumentImpress"
+ DocumentImpress.UseMenu
+ hMenuSelectNr (5)
+ hMenuSelectNr (13)
printlog "Changing focus to TaskPane."
kontext "Tasks"
sleep (1)
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-26 22:06:00 +0000